// PascalABC.Net 3.0, сборка 1088 const n=30; var a:array[1..n] of integer; i,k:integer; begin Randomize; Writeln('*** Исходный массив ***'); k:=0; for i:=1 to n do begin a[i]:=Random(1001); Write(a[i],' '); if (a[i] mod 3 = 0) and (a[i] mod 10 = 1) then Inc(k) end; Writeln; Writeln('Количество найденных элементов равно ',k) end.
// PascalABC.Net 3.0, сборка 1088 const n=6; var a:array[1..n] of integer; i:integer; begin Randomize; Writeln('*** Исходный массив ***'); for i:=1 to n do begin a[i]:=Random(1001); Write(a[i],' '); end; Writeln; Writeln('*** Результат ***'); Write(a[1],' '); for i:=2 to n-1 do begin if Odd(a[i]) then a[i]:=a[i]+a[n] else a[i]:=a[i]+a[1]; Write(a[i],' '); end; Writeln(a[n]) end.
const
n=30;
var
a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
Writeln('*** Исходный массив ***');
k:=0;
for i:=1 to n do begin
a[i]:=Random(1001);
Write(a[i],' ');
if (a[i] mod 3 = 0) and (a[i] mod 10 = 1) then Inc(k)
end;
Writeln;
Writeln('Количество найденных элементов равно ',k)
end.
Тестовое решение:
*** Исходный массив ***
503 187 764 452 351 819 339 940 681 369 938 874 639 212 633 825 983 830 121 801 889 36 479 14 357 382 631 8 402 61
Количество найденных элементов равно 3
const
n=6;
var
a:array[1..n] of integer;
i:integer;
begin
Randomize;
Writeln('*** Исходный массив ***');
for i:=1 to n do begin
a[i]:=Random(1001);
Write(a[i],' ');
end;
Writeln;
Writeln('*** Результат ***');
Write(a[1],' ');
for i:=2 to n-1 do begin
if Odd(a[i]) then a[i]:=a[i]+a[n]
else a[i]:=a[i]+a[1];
Write(a[i],' ');
end;
Writeln(a[n])
end.
Тестовое решение:
*** Исходный массив ***
706 46 715 899 103 308
*** Результат ***
706 752 1023 1207 411 308