Question

Помогите решить задачи на Паскаль abс!

Answer 1

1)var a:array [1..10] of integer;

i,c:integer;

begin

randomize;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(200);

write(a[i],' ');

if (a[i]>9) and (a[i]<100) then c:=c+1;

end;

writeln;

write('Количество двузначных элементов: ',c);

end.

2)var a:array [1..10] of integer;

i,c,min:integer;

begin

randomize;

min:=200;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(200);

write(a[i],' ');

if a[i]<= min then  

begin

min:=a[i];

c:=i;

end;

end;

writeln;

write('Номер последнего минимального элемента: ',c);

end.

3)var a:array [1..10] of integer;

i,c,min:integer;

begin

randomize;

min:=200;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(200);

write(a[i],' ');

if (a[i]mod 5=0) and (a[i]<min) then min:=a[i];

end;

writeln;

if min<200 then write('Минимальный элемент,кратный 5: ',min) else write('Нету такого элемента.');

end.