0.4*1024*1024= 419430.4 Бит
Имеем одномерный массив(таблицу) из 10 элементов
..............................................................................................................
n = 1......2.......3......4......5......6......7......8......9.......10 номера по порядку
mas= 18.....10......-1......6.....12....4......-16....7.....15.......-3...значения элементов
.................................-1............-1.............-1.........
s=0
две строки for i:=3 to 10
если по модулю какой-то элемент начиная с третьего больше 10 то заменяем на элемент стоящий на 2 позиции назад
|-1|>10 нет, |6|>10 нет |12|>10 Да число 12 заменяем на -1
|4|>10 нет |-16|>10 Да Заменяем на -1
|7|>10 нет |15|>10 Да Заменяем на -1 |-3|>10 Нет
Получили новый массив
18 10 -1 6 -1 4 -1 7 -1 -3
Следующий блок программы Для i от 1 до 10 Если элемент <0 то в копилку Вообщем складываем все отрицательные элементы
s= -1 +(-1)+(-1)+(-1)+(-3)= -7
Выводим число - 7
Источник -> передатчик -> приёмник
1) var a: array[0..10] of integer; i, s: integer;
begin
for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
if a[i]<=20 then s:=s+a[i];
end;
writeln;
writeln(s);
<span>end.
2) </span>var a: array[0..10] of integer; i, s: integer;
begin for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
// if (i mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди нечетных номеров элементов.
// if (a[i] mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих нечетных элементов.
end;
writeln;
writeln(s);
end.