1) var a: array[0..100] of integer; i, s, n: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); s := s * a[i]; end; writeln; writeln(s); end.
2) var a: array[0..100] of integer; i, s, n: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); end; for i := 1 to n do begin // if (i mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди четных номеров элементов. // if (a[i] mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих четных элементов. end; writeln; writeln(s); end.
3)var a: array[0..100] of integer; i, s, n, max: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); end; s:=0; for i := 1 to n do begin if (a[i]>s) then s:=a[i]; end; writeln; writeln(s); end.
4)var a: array[0..100] of integer; i, s, n, max: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); end; s:=0; for i := 1 to n do begin if (a[i]>s) and (a[i] mod 3=0) then s:=a[i]; end; writeln; writeln(s); end.
Const n=4; m=5; var a:array [1..n,1..m] of integer; i,j,min,imin,jmin:integer; begin Randomize; Writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write(a[i,j]:6); end; writeln; end; min:=a[1,1]; imin:=1;jmin:=1; for i:=1 to n do for j:=1 to m do if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end; writeln('min=a[',imin,',',jmin,']=',min); end.
program zadacha;
var
a: array [1..20]of integer;
i,sum:integer;
begin
writeln('vvedite 20 chisel');
for i:=1 to 20 do read(a[i]);
writeln();
sum:=0;
for i:=1 to 20 do begin
if (a[i] mod 5 = 0) or (a[i] mod 7 = 0) then
sum:=sum+a[i];
end;
writeln('summa =', sum);
end.