Дано 15 целых чисел. определить, сколько из них больше предыдущего и последующег...

Santa2015 @Santa2015

May 2021 2 48 Report

Дано 15 целых чисел. определить, сколько из них больше предыдущего и последующего чисел. найти сумму цифр каждого такого числа.
Выполнить в среде разработки паскаль

mouzemanp5w5pv Program A;var a,i,n:integer;a:=15;i:=0;if a>i then writeln ('Число а больше чем i на ', a-i) else writeln ('Число i больше чем а на ', a-i);n:=1while a<15 do begin a:=n+1+a; end;writeln (n);end.

Santa2015 встретились перед запуском мелкие ошибки. но теперь повторно объявленный идентификатор а.

Santa2015 + сумму не выводит.

Santa2015 нужно определить количество. не правильно решено. по прежнему жду решение.

pacixor //PascalABC.NET

var
A: array [1..15] of integer;
i, sum, n: integer;
begin
for i := 1 to 15 do
begin
    A[i] := random(1001)-500;
    write(A[i], ' ');
end;
writeln;

for i := 2 to 14 do
    if ((A[i] > A[i - 1]) and (A[i] > A[i + 1])) then
    begin

   sum := 0;
n := A[i];
while ( n<>0 ) do
begin
    sum := sum + (n mod 10);
    n := n div 10;
    if n in [-9 .. -1] then
    begin
      if sum - abs(n) < 0 then
        sum := abs(sum) - abs(n)
      else
        sum := sum - abs(n);
      break;
    end;
end;
   writeln('Сумма цифр числа ', A[i], ' = ', sum);
end;
end.

Answers & Comments

dana matrica m44 opredelit kolichestvo osobyh elementov massiva element schi

dana veshestvennaya matrica bmm vychislit proizvedenie summy vseh elementov da

dana veshestvennaya matrica a nm poluchit k chislo komponent matricy a prin

dany dve matricy x55 i y44 najti summu otricatelnyh elementov matric i s

vychislit srednee geometricheskoe polozhitelnyh elementov massiva a1a2a40

privedite primer konfliktnoj situacii kak vy sebya v nej veli

dana posledovatelnost x15 podschitat summu otricatelnyh i summu polozhitel

pomogite reshit pozhalujsta srochno7f0d1805473b6a89cb0b556b7c0f8fb7 81694

pomogite reshit pozhalujsta srochno8fe5b8b0740a192feba6e75db2b3c262 69812

pomogite reshit pozhalujsta srochnoccb9249964dffa5db6212ea9a66fa1b4 33954

рекомендуемые вопросы

Helpful Links

Helpful Social