begin Randomize; s := 0; Write('Элементы массива: '); for i := 1 to n do begin x[i] := Random(101) - 50; Write(x[i]:5); if x[i] >= 0 then s := s + sqr(x[i]) end; Writeln(#13#10, 'Сумма квадратов неотрицательных элементов равна ', s) end.
Тестовое решение: Элементы массива: -29 1 -36 50 -29 31 4 28 -25 -1 17 -45 -48 -19 -49 -49 -30 -22 8 18 Сумма квадратов неотрицательных элементов равна 4939
var a:longint; n, i:integer; s:array [1..10000] of integer; begin read(n); a:=0; for i:=1 to n do read (s[i]); for i:=1 to n do if s[i]>=0 then a:=a+sqr(s[i]); writeln(a); end.
function F() : integer; var k,i : integer; begin k := 0; for i := 100 to 999 do if (i mod 13 = 0) and (i mod 100 <> 3) then k := k +1; Result := k; end;
begin writeln (f()); end.
const n = 30; var a : array [1..n] of integer; i,b : integer; r : boolean; begin readln (b); i := 1; r := false; While (not r) and (i <= n) do begin if a[i] = b then r := true; i := i +1; end; if r then writeln ('Есть') else writeln ('Нет'); end.
"Четный элемент" был понят, как элемент массива, имеющий четный порядковый номер при счете от единицы.
const n=13; var a:array[1..n] of integer; i,imin:integer; begin { инициализация } Randomize; Writeln('Элементы массива'); for i := 1 to n do begin a[i]:=Random(50); Write(a[i]:3) end; Writeln; { поиск минимума } i:=4; imin:=2; while i<=n do begin if a[imin]>a[i] then imin:=i; i:=i+2 end; Writeln('Минимальный элемент с четным номером ',imin,' равен ',a[imin]); end.
Тестовое решение: Элементы массива 30 23 5 19 36 10 10 37 42 4 23 37 34 Минимальный элемент с четным номером 10 равен 4
n = 20;
var
x: array[1..n] of integer;
i, s: integer;
begin
Randomize;
s := 0;
Write('Элементы массива: ');
for i := 1 to n do
begin
x[i] := Random(101) - 50;
Write(x[i]:5);
if x[i] >= 0 then s := s + sqr(x[i])
end;
Writeln(#13#10, 'Сумма квадратов неотрицательных элементов равна ', s)
end.
Тестовое решение:
Элементы массива: -29 1 -36 50 -29 31 4 28 -25 -1 17 -45 -48 -19 -49 -49 -30 -22 8 18
Сумма квадратов неотрицательных элементов равна 4939