Регистрация
Sasha476
09.12.2022 23:31
Информатика
Есть ответ 👍

Заполнить массив из 10 элементов случайными числами в интервале [0..14] и определить есть ли в нем одинаковые соседние элементы Пример :
Исходный массив : 4 0 1 2 0 1 3 1 1 0​

219
341
Посмотреть ответы 1

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

oksa4va
oksa4va
4,8(32 оценок)
Var   i,n,s: integer; begin   write('n=');   readln(n);   s: =0;   for i: =20 to n do       if odd(i) then s: =s+i;   writeln('сумма с for = ',s);   s: =0; i: =21;   while i< =n do   begin       s: =s+i;       i: =i+2   end;   writeln('сумма с while = ',s) end.

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