ВАРИАНТ 2 1. Дан одномерный массив а из семи элементов:
25
24
10
60
4
100
-11
1) Как объявить этот массив в программе, записанной на
языке Паскаль?
2) Чему равно значение элемента массива с индексом 5?
3) Чему равно значение элемента массива a[a [5]]?

program v1;

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

i:integer;

begin

 for i:=1 to 7 do

 a[1]:=25;

 a[2]:=24;

 a[3]:=10;

 a[4]:=60;

 a[5]:=4;

 a[6]:=100;

 a[7]:=-11;

 for i:=1 to 7 do writeln(a[i]:3);

end.

2) 4

3)60

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

var

s,n,i: integer;

begin

write('введите количество чисел');

readln(n);

s: =0;

for i: =1 to n do

s: =s+i*3;

writeln(s);

end.