1) uses crt;
var i,n,s,mx:integer;a:array[1..1000] of integer;
begin
randomize();
mx:=-100;
for i := 1 to 10 do begin
a[i] := random(100) + 1;
write(a[i],' ');
if (a[i] mod 2 = 0) and (mx < a[i])then mx := a[i];
end;
writeln('');
writeln(mx);
end.
2)
uses crt;
var i,n,s,mn1,mn2:integer;a:array[1..1000] of integer;
begin
randomize();
mn1:= 101;
mn2:= 101;
for i := 1 to 10 do begin
a[i] := random(100) + 1;
write(a[i],' ');
if (a[i] mod 2 = 1) and (mn1 > a[i])then begin
mn2 := mn1;
mn1 := a[i]
end;
end;
writeln('');
writeln(mn2);
end.
+,тоже не понимаю как програмировать
Точный элемент экрана дисплея это:
пиксель.
var rK, rV: integer;
begin
writeln('Введите рост Коли:');
readln(rK);
writeln('Введите рост Васи:');
readln(rV);
if rK>rV then writeln('Коля выше Васи.')
else writeln('Вася выше Коли.');
end.
Var a,n,s:integer;
begin
n:=0; s:=0;
readln(a);
while a<>0 do
begin
n:=n+1;
if a mod 2=0 then s:=s+a;
readln(a);
end;
writeln('n = ',n,' s = ',s);
end.
Пример:
5
2
8
7
3
0
<span>n = 5 s = 10</span>