Регистрация
Linaa631
13.08.2020 12:28
Информатика
Есть ответ 👍

Дан массив. все элементы меньше 10 умножить на 100. , (это в паскали) 30

145
398
Посмотреть ответы 2

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

bogdantanya20171
bogdantanya20171
4,7(17 оценок)

const n=10;

var a: array[1..n] of integer;

i,s: integer;

begin

write('       исходный массив: ');

for i: =1 to n do

begin

a[i]: =random(21)-10;

write(a[i]: 5,' ');

if a[i]< 10 then a[i]: =a[i]*100

end;

writeln;

write('преобразованый массив: ');

for i: =1 to n do write(a[i]: 5,' ')

end.

maksimlymar200
maksimlymar200
4,4(5 оценок)
Var s1, s2: string; i: integer; begin readln(s1); for i: =1 to length(s1) do if s1[i] in ['0'..'9'] then s2 : = s2 + s1[i]; writeln(s2); end.

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