Предмет: Информатика,
автор: nasyrovaelina
дан массив из 8 элементов все его элементы увеличить в 2 раза
Ответы
Автор ответа:
0
var a:array [1..100] of real;
i,n:integer;
Begin
n:=8;
for i := 1 to n do begin
read(a[i]);
a[i]:= a[i]*2;
end;
for i:= 1 to n do
write(a[i],'' );
End.
Интересные вопросы
Предмет: Математика,
автор: Аноним
Предмет: История,
автор: nurtazinakamilla31
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: дима22