Регистрация
админ1273
29.03.2023 13:12
Информатика
Есть ответ 👍

Заменить все элементы массива равные 5 на 1000. в pascal abc

269
423
Посмотреть ответы 2

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

lonelynightly
lonelynightly
4,6(55 оценок)

const n=10;

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

i: integer;

begin

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

for i: =1 to n do

begin

a[i]: =random(9)+1;

write (a[i]: 4,' ')

end;

writeln;

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

for i: =1 to n do

begin

if (a[i] = 5) then a[i]: =1000;

write (a[i]: 4,' ')

end

end.

асель117
асель117
4,6(90 оценок)

954-459=495                                      

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