Предмет: Информатика, автор: anyagomelskaya

№4 и №5 ,срочноооооо

Приложения:

Ответы

Автор ответа: dresqore
0

1) uses crt;

const n=10;

var a:array[1..n] of integer;

  i,k:integer;

begin

    for i:=1 to n do

    begin

         a[i]:=i*2+1

    end;

    for i:=1 to n do

        write(a[i]:3);

end.

2) uses crt;

const n=10;

var a:array[1..n] of integer;

  i,k:integer;

begin

    for i:=1 to n do

    begin

         a[i]:=i*3

    end;

    for i:=1 to n do

        write(a[i]:3);

end.

Похожие вопросы
Предмет: Алгебра, автор: salamkybro
Предмет: Математика, автор: Аноним