Programm Pens;
var Year: integer;
begin
Readln ('Введите Ваш возраст:', Year);
Year := Year + 58;
Writeln('Ваш возраст выхода на пенсию: ', Year);
end;
Var a:array[1..40] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 40 do begin
a[i]:=random(200)-100;
Writeln('a[',i,']=',a[i]);
if (a[i] mod 5=0) and (a[i]<0) then
s:=s+a[i];
end;
Writeln('Сумма отрицательных элементов кратных 5 равна: ',s);
<span>end.</span>
1 - 3
2 - 4
3 - 5
4 - 1
5 - 2
6 - 8
7 - 6
8 - 7
9 - 11
10 - 12
11 - 13
12 - 10
13 -9
Var a:array [1..3,1..5] of integer;
i,j,s:integer;
begin
randomize;
for i:=1 to 3 do begin
for j:=1 to 5 do begin
a[i,j]:=random(21)-10;
write (a[i,j]:4);
end;
writeln;
end;
for i:=1 to 3 do
for j:=1 to 5 do
s:=s+a[i,j];
writeln (s);
readln;
end.
А)60*80*5/1024=23 Кб
б) при 64-символьном алфавите символ весит 6 бит.
60*80*5*6бит/8бит=18000бит