Дан массив из 20 целых чисел. Заменить все отрицательные элементы на 0
Ответы на вопрос
Ответил Gleb1Kosyrev
0
var ar:array[1..20] of integer;
i:integer;
begin;
randomize;
writeln('First array:');
for i:=1 to 20 do
begin;
ar[i]:=random(-10,10);
writeln(ar[i]);
if ar[i]<0 then ar[i]:=0;
end;
writeln('Final array');
for i:=1 to 20 do
writeln(ar[i]);
end.
i:integer;
begin;
randomize;
writeln('First array:');
for i:=1 to 20 do
begin;
ar[i]:=random(-10,10);
writeln(ar[i]);
if ar[i]<0 then ar[i]:=0;
end;
writeln('Final array');
for i:=1 to 20 do
writeln(ar[i]);
end.
Новые вопросы
Українська мова,
2 года назад
Русский язык,
2 года назад
Математика,
9 лет назад
Геометрия,
9 лет назад
Математика,
10 лет назад
Математика,
10 лет назад