Регистрация
ann0706kol
25.02.2020 07:51
Информатика
Есть ответ 👍

На массивы. нужна сама и к ней решение. желательно несколько .

250
427
Посмотреть ответы 2

Ответы на вопрос:

sofaTV
sofaTV
4,4(63 оценок)

 

{2 в 1)

:   вывести сумму всех нечетных эелементов и сумму элеметнов стоящих на четных позициях}var  a: array[1..100] of integer;   i, summ1, summ2, n: integer; begin  summ1 : = 0;   summ2 : = 0;   randomize;   write('n = '); readln(n);   writeln('исходный массив : ');   for i : = 1 to n do  begin    a[i] : = random(51) - 25;     write(a[i], ' ');     if abs(a[i]) mod 2 = 1 then      summ1 : = summ1 + a[i];     if i mod 2 = 0 then      summ2 : = summ2 + a[i];   end;   writeln;   writeln('сумма нечетных элементов: ', summ1);   writeln('сумма элементов стоящих на четных позициях: ', summ2);   readln; end.

 

dreamnazym
dreamnazym
4,5(39 оценок)
Простая реализация без массива uses crt; var a, b, c, d, k: integer; begin readln(a, b, c, d); clrscr; if (a mod 5) = 0 then inc(k); if (b mod 5) = 0 then inc(k); if (c mod 5) = 0 then inc(k); if (d mod 5) = 0 then inc(k); writeln(k); end.

Популярно: Информатика