2
string xc = "asdfghjk";
int l = xc.Length;
Program z15; Var i, sum, b, test_1, test_2:integer; a: array [1..5] of integer;Begin for i:= 1 to 5 do begin write('Число ', i,' = '); readln(a[i]); end; test_1:= 0; test_2:= 0; sum:= 0; writeln; for i:=1 to 3 do sum:= sum + a[i]; if (sum > 0) then for i:= 1 to 5 do begin test_1:= 1; b:= a[i] * -1; writeln('Число ', i,' = ', b); end; if ((a[4] < 0) and (a[5] < 0)) then begin test_2:= 1; write('Произведение двух последних чисел = ', a[4]*a[5]); end; writeln; if ((test_1 = 1) and (test_2 = 2)) then for i:=1 to 5 do writeln('Число ', i,' = ', a[i]) else for i:=1 to 5 do writeln('Число ', i,' = ', a[i]*2) End.
Program Ok;
var A:array[1..10] of real;
sum:real;i,n:integer;
begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
read(A[i]);
end;
for i:=10 downto 1 do
begin
if(A[i]>0) then
n:=i;
end;
for i:=1 to 9 do
begin
if (A[n] = A[i+1]) then
sum:=sum+1;
end;
writeln(sum);
end.
Vara,k,s,b:integer;Begins:=1;b:=0;for k:=1 to 20 dobeginreadln(a);if (a div 1000 <10) and (a div 1000 >0) and (a mod 10 = 3) thenb:=b+1;if (a mod 4 = 0) thens:=s*a;end;writeln('Произведение чисел, кратных четырем - ',s);writeln('Количество четырехзначных чисел, оканчивающихся на три - ',b);end.
Const n=10;
var a:array[1..n] of integer;
max,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
max:=a[1];
for i:=1 to (n-1) div 2 do
if a[2*i+1]>max then max:=a[2*i+1];
writeln('max = ',max);
end.
Пример:
20 31 42 35 5 44 11 23 26 27
max = 42