Информатика, опубликовано 2018-08-22 22:25:43 by Гость
Сделайте пожалуйста. утроить все элементы массива,значение которых меньше 10-и
Ответ оставил Гость
Var i: integer;
a: array[1..10] of integer;
begin
write(Исходный массив: );
for i := 1 to 10 do begin
a[i] := random(20);
write(a[i]:3);
if(a[i] end;
write(#10Конечный массив: );
for i := 1 to 10 do write(a[i]:3);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.