Предмет: Информатика,
автор: Dengires
Дан массив из 10. Ввести и вывести элемент массива и затем получить новый массив в котором все элементы увеличены в 2 раза.
Если можно то вместе с алгоритмом и решением))
Ответы
Автор ответа:
0
Progran BiFi;
Const n=10;
Var a:array[1..n] of real;
i:integer;
Begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do writeln(a[i]);
readln;
for i:=1 to n do begin a[i]:=a[i]*2;
writeln(a[i]);
end;
readln;
end.
Const n=10;
Var a:array[1..n] of real;
i:integer;
Begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do writeln(a[i]);
readln;
for i:=1 to n do begin a[i]:=a[i]*2;
writeln(a[i]);
end;
readln;
end.
Похожие вопросы
Предмет: Информатика,
автор: sagf
Предмет: Английский язык,
автор: Аноним
Предмет: Английский язык,
автор: kymbatkakimzhanova
Предмет: Химия,
автор: Botan01