N=2^16
16 бит
64*10*32=20480
20480*16=327680бит
40кб
Var a:array[1..12,1..20] of real;
i,j,n:integer;
s:real;
begin
// Заполним массив случайными значениями для теста
for i:=1 to 12 do
for j:=1 to 20 do
a[i,j]:=random*20000;
writeln('Номер сотрудника ');
readln(n);
for i:=1 to 12 do
s:=s+a[i,n];
writeln('Зарплата за год ',s);
end.
В конце readln не требуется, тк считывать нечего.
И чтоб не было некрасивого числа в конце допиши "writeln('площ. треуг.s=',s:3:2 );
var a:string;
begin
write('введите букву');
readln(a);
case a of
'L':write('L=2*pi*r'); // формула длинны окружности
'S':write('S=pi*r*r); // формула площади круга
'V':write('V'=pi*r*r*h); // формула объёма цилиндра
else write(''буква должна быть L, S или V);
end;
end.
если формула гдето неверная то сори