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 байт = 8 бит
1 кбайт = 1024*8 бит = 8192 бит
3 кбайта = 3*8192 бит = 24576
Задание 1.
Алёша₋баскетбол,плавание
Вася-волейбол,теннис
Серёжа-футбол,велоспорт
Задание 2.
Петя-баскетбольная
Гена-волейбольная
Дима-гимнастическая
Вова-легкая атлетика
1канал*60cек*2байт*48.000гц=5,760,000 байт=5625 - кб => около 5 мб
1703 г.
read(god);
while god <> 1703 do begin
write ('Неправильно!');
read(god);
end;
write('Правильно');
pascal