Я в этом плохо что понимаю, так что не знаю какие инструменты. Знаю что пр
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.
Проектировать
база данных больных
электронный журнал
карта магазинов
EXCEL
программа для обработки музыки
почта начальника
WORD
копировать и сохранять свои рисунки, продавать
размещать в сети свои образцы моделей
a->B2 =a*a*a->B3 =B3*B3*B3*B2->B4
a->B2 =a*a*a*a->B5 =B5*B5*B5*B5*B5->B6
a->B2 =a*a*a*a*a->B7 =B7*B7*B7*B7*B7->B8
a->B2 =a*a*a*a*a->B7 =B7*B7*B7*B5 ->B9
