1. В массиве а1, а2, ..., а50 определить количество нулей

2. В массиве с1, с2, ..., с40 найти сумму чисел больших единицы

3. Дана последовательность чисел d1, d2, ..., d50 определить минимальный элемент

Question

Информатика

Аидка

14 октября, 23:29

1. В массиве а1, а2, ..., а50 определить количество нулей

2. В массиве с1, с2, ..., с40 найти сумму чисел больших единицы

3. Дана последовательность чисел d1, d2, ..., d50 определить минимальный элемент

+3

Ответы (1)

Знаете ответ на вопрос?

Людмилыч · Answer 1

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.