Const n=10;
var a:array[1..n] of integer;
i,s,p:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
writeln;
s:=0;
p:=1;
for i:=1 to n do
begin
if i mod 2 = 0 then s:=s+a[i];
if a[i] mod 3 = 0 then p:=p*a[i];
end;
writeln('s = ',s,' p = ',p);
end.
Пример:
Исходный массив:
-4 -9 2 -2 4 6 -8 -5 7 -5
s = -15 p = -54
По умолчанию кодировка ASCII, значит каждый символ весит 8 бит или 1 байт
Объем=400*40*8*1 байт=128000 байт=125 Кб Такого ответа нет...
Но, поступим по-другому В русском алфавите 33 буквы Значит примерно каждая буква весит 5 бит, посчитаем:
объем=400*40*8*5бит=640000 бит=80000 байт
Ответ: 1
// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
begin
var n:=ReadInteger('Число элементов массива');
var a:=ArrRandom(n,-60,140); a.Println(', ');
WritelnFormat('max={0}, min={1}',a.Max,a.Min)
end.
<u><em>Тестовое решение:</em></u>
Число элементов массива 10
-26, 134, 124, 103, 25, 31, 41, -31, 57, 46
max=134, min=-31
Var a,b,c,i:integer;
begin
i:=0;
Write('1-число='); Readln(a);
Write('2-число='); Readln(b);
Write('3-число='); Readln(c);
if a=0 then i:=i+1;
if b=0 then i:=i+1;
if c=0 then i:=i+1;
Writeln(i,' чисел равных нулю');
end.