Написать программы 1)В одномерном массиве с(1:10) найти количество элементов удовлетвор. условию с от i больше q и с от i меньше l . 2)Найти минимальный и максимальный элемент массива и его индекс .
Написать программы 1)В одномерном массиве с(1:10) найти количество элементов удовлетвор. условию с от i >q и с от i
Гость
Гость
Ответ(ы) на вопрос:
Гостьпрограмму написала в паскале, надеюсь подходит)) 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]