Регистрация
Katya08777
12.03.2021 21:10
Информатика
Есть ответ 👍

Тема массивы. язык - pascal abc. нужна программа по принципу работы вводим 10 элементов массива - выводятся нечетные.

151
240
Посмотреть ответы 2

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

Coul2000nator
Coul2000nator
4,7(21 оценок)
Const n=10; var a: array [1..n] of integer;         i: integer; begin   randomize;   writeln ("массив из 10 элементов: ');   for i: =1 to n do   begin        a[i]: = random(101);         write (a[i],' ');     end;   writeln('нечетные элементы: ');   for i: =1 to n do   if a[i] mod 2< > 0 then    write(a[i],' '); end. используем рандом для заполнения массива
DEGoP
DEGoP
4,7(61 оценок)
Var   sum: real;   p, t,i: integer; begin p: =18; t: =6; sum: =30000; for i: =1 to t do    sum: =sum+(sum*p)/100; writeln(sum,' руб'); end.

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