programHelloWorld;
var n:array[1..100] of integer;
var i: integer;
begin
for i:=1 to 100 do
n[i] := random(1000);
if n[i] mod 3 = 1 thenwriteln(n[i]);
end;
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
programHelloWorld;
var n:array[1..100] of integer;
var i: integer;
begin
for i:=1 to 100 do
n[i] := random(1000);
for i:=1 to 100 do
if n[i] mod 3 = 1 thenwriteln(n[i]);
end;