Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

1. В массиве а1,а2, ... , а50 определить количество нулей
2. В массиве с1,с2, ... , с40 найти сумму чисел больших единицы
3. Дана последовательность чисел d1,d2, ... , d50 определить минимальный элемент

Ответ оставил Гость

1 и 3)var ar:array[1..50] of integer;
i,k,min:integer;
begin;
min:=100;
writeln(Array:);
for i:=1 to 50 do
begin;
 ar[i]:=random(10)-5;
 write(ar[i]:4);
 if ar[i]=0 then inc(k);
 if ar[i]end;
writeln;
writeln(0:,k);
writeln(Min:,min);
end.
2) var ar:array[1..40] of integer;
i,k:integer;
begin;
writeln(Array:);
for i:=1 to 40 do
begin;
 ar[i]:=random(10)-5;
 write(ar[i]:4);
 if ar[i]>1 then inc(k);
end;
writeln(Result:,k);
end.