Const n = 20; var a:array[1..n] of integer; i:integer; begin for i:=1 to n do readln(a[i]); for i:=1 to n do if (a[i] mod 3 = 0) and (a[i] mod 5=0) then Writeln('elem nomer ' , i) end.
begin Randomize; writeln('Исходный массив'); for i := 1 to n do begin a[i] := Random(100) - 50; write(a[i]:6); if a[i] < 0 then a[i] := sqr(i) end; writeln; writeln('Результирующий массив'); for i := 1 to n do write(a[i]:6); writeln end.
begin Randomize; writeln('Исходный массив'); for i := 1 to n do begin a[i] := Random(100) - 50; write(a[i]:6); if a[i] < 0 then a[i] := sqr(i) end; writeln; writeln('Результирующий массив'); for i := 1 to n do write(a[i]:6); writeln end.
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if (a[i] mod 3 = 0) and (a[i] mod 5=0) then
Writeln('elem nomer ' , i)
end.