ТЕКСТ ЗАДАНИЯ Опишите следующие массивы:
Nun = [45, 78, 3, 9, 23, -12, 67, -15, 7, 54)
Beekday = ['monday', 'tuesday', 'Wednesday', 'thursday', 'friday', 'saturday', 'sunday']
1. Имена массивов
2. Количество элементов массивов
3. Чему равно значение Num[6]
4. Чему равно значение Weekday[2]​

1) o+1=1;   2) 1 * 2= 2; 3) 2 + 1 = 3; 4) 3 * 2 =6; 5) 6 * 2 = 12; 5) 12 * 2 = 24; 7) 24 + 1 = 25; 8) 25 * 2 = 50.

на pascal:

program sonik;

uses crt;

var a,b,c: string;

begin

readln (a);   readln (b);   readln (c);

writeln (' фигуры: ',a,b,c);

end.

var

a: array [1..20] of integer;

i,max: integer;

begin

max: =0;

for i: =1 to 20 do

begin

if i mod 2=0 then a[i]: =random(50)+50

else  a[i]: =random(50)+150;

if a[i]> max then max: =a[i];

write(a[i]: 4);

end;

writeln;

writeln('max=',max);

end.

такая

естественная

красота

самая

теплая

: dd что есть, то есть