Уровень А Задание 1. Заполните пропуски в таблице е рения информации: ... 1024 Пбайт 1024 байт 1 Эбайт 210 байт 280 байт - - 1... 1 Мбайт 1 Мбайт 1 Tбайт .. 1024 Кбайт 1024 ... На 240 байт — ... байт бит ... ин .. 1 Гбайт 1024 Мбайт = 1024 Tбайт 1024 Эбайт 250 байт - 1... 270 байт 1 Збайт
var
s1,s2,i: integer;
var a: array[1..n] of integer;
begin
s1:=0; s2:=0;
writeln ('Исходный массив');
for i:=1 to n do begin
a[i]:=random(-10,10);
write (a[i]:3);
if a[i]>=0
then s1:=s1+a[i]
else if a[i] mod 2<>0
then s2:=s2+a[i];
end;
s1:=s1*2;
writeln;
writeln ('Удвоенная сумма положительных элементов = ',s1);
writeln ('Сумма нечетных отрицательных элементов = ',s2);
end.
Результат:
Исходный массив
-2 0 8 -6 -1 6 7 -4 -7-10
Удвоенная сумма положительных элементов = 42
Сумма нечетных отрицательных элементов = -8