Информатика, опубликовано 2018-08-22 23:26:26 by Гость
Дан массив,все его элементы увеличить в два раза
Ответ оставил Гость
Var ar:array[1..10] of integer;
i:integer;
begin;
writeln(Введите массив);
for i:=1 to 10 do
begin;
readln(ar[i]);
ar[i]:=ar[i]*2;
end;
writeln(Final array:);
for i:=1 to 10 do
write(ar[i]:6);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.