написать программы 1)В одномерном массиве с(1:10) найти количество элементов удовлетвор....

Question

написать программы

1)В одномерном массиве с(1:10) найти количество элементов удовлетвор. условию с от i >q и с от i

2)Найти минимальный и максимальный элемент массива и его индекс .

Answer 1

программу написала в паскале, надеюсь подходит))

program 1;
var a:array[1..10] of integer; i,q,max,min,l,k:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
for i:=1 to 10 do
if (a[i]>q) and (a[i] writeln('k=',k);
end.

2. 

program 2;
var a:array[1..10] of integer; i,max,min,k,l:integer;
begin randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
max:=a[1];
min:=a[1];
for i:=2 to 10 do
begin
if a[i]>max then
begin max:=a[i]; k:=i; end;
if a[i] begin min:=a[i]; l:=i; end;
end;
writeln('max=',max,', его индекс=',k,', min=',min,', его индекс=',l);
end.