Условие:
Дан массив B(m), m≤20. Все отрицательные элементы замените нулями. Выведите на печать исходный массив, переформированный массив, а также сумму его элементов.
Решение:
Program lab4;
usescrt;
const n = 10;
var i:byte;
var s:integer;
a:array[1..n] of integer;
begin
clrscr;
randomize;
fori := 1 to n do
begin
a[i] := random(99)-45;
writ...