• Предмет: Информатика
  • Автор: nasyrovaelina
  • Вопрос задан 10 лет назад

дан массив из 8 элементов все его элементы увеличить в 2 раза

Ответы

Ответ дал: archery
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.

Похожие вопросы