Question

составте программу находящее кол-во элементов попадающие в диапозон (100;500)

Answer 1

uses crt;var i,s:integer;a :array [1..10] of integer;Beginrandomize;for i:=1 to 10 do begina[i]:=random (1000)+0;if (a[i]>=100) and (a[i]<=500) then s:=s+1;write(a[i],' ');end;writeln;writeln(s);End.

Answer 2

uses crt;
var i,s:integer;
a :array [1..10] of integer;
Begin
randomize;
for i:=1 to 10 do begin
a[i]:=random (1000)+0;
if (a[i]>=100) and (a[i]<=500) then s:=s+1;
write(a[i],' ');
end;
writeln;
writeln(s);
End.