Дан массив из 10 элементов -случайных чисел из диапазона [-30; 30]. 1, подсчитать в нем кол-во элементов, равных заданному числу. 2, найти минимальный и максимальный элемент в массиве и их номера. 3, отыскать в массиве локальные минимумы и максимумы.

1)  program asd; uses crt; const n=10; var a: array[1..n] of integer; i,s,k,k1: integer; begin clrscr; for i: =1 to n do   begin  a[i]: =random(10);   write(a[i]: 4);   end;         writeln;   writeln('введите число: ');   readln(s);   for i: =1 to n do    begin    if a[i]=s then k: =k+1;   end;   writeln('число   ',s,', его кол-во в массиве:   ',k,' шт.'); end.2)program asd; uses crt; const n=10; var  a: array[1..n] of integer;   i,min,mini,max,maxi: integer; beginclrscr;   for i: =1 to n do    begin  a[i]: =random(20);     write(a[i]: 4);   end;   writeln;   max: =a[1];   min: =a[1];   for i: =1 to n do    begin    if a[i]> max then    begin    maxi: =i;     max: =a[i];     end;     if a[i]< min then  begin    mini: =i;     min: =a[i];     end;   end;   writeln('максимальное число: ',max,'. индекс: ',maxi);     writeln('минимальное число: ',min,'. индекс: ',mini ); end.

обект

5. Последовательность инструкций, предназначенных для исполнения устройством выполнения вычислительной машины

6. Знания которые пока не используются человеком

8. дисциплина которая основана на использование компьютерной техники изучает структуру и общее свойства информации закономерности её и методы для создания, хранения, поиска преобразования в различных сферах человеческой деятельности

9.

11. Процесс, при котором создаются условия, удовлетворяющие потребностям любого человека в получении необходимой информации

12. какая структура современной информатики основана на математических разделах

13. Наука изучающая проблемы, возникающие в системе "человек-техника=система", с целью оптимизации трудовой деятельности оператора, создания для него комфортных условий

14. Важнейшее свойство информации

15. какой интеллект изучает обработку информации подобной той которую делает человек

По вертикали

1. Сменный носитель информации используемый для многократной записи и хранения данных

2. сведения об окружающем нас мире и происходящих в нем процессов

3. идеи человечества и указания по реализации этих идей, накопленные в форме, позволяющей их воспроизводство.

7. Внутреннее устройство, устанавливается в один из разъемов материнской платы, и служит для обработки информации, поступающей от процессора или из ОЗУ на монитор

10. Универсальное техническое средство для работы с информацией

11. один из информационных процессов

12. совокупность методов и устройств, используемых людьми для обработки информации.

program Chernovik;

var a: integer;

begin

write ('Введите трехзначное число: ');

readln (a);

if a > ((a mod 10) * (a div 100) * (a div 10 mod 10))

then write ((a mod 10) * (a div 100) * (a div 10 mod 10), ' < ',a)

else write ((a mod 10) * (a div 100) * (a div 10 mod 10),' >= ',a)

end.

Объяснение:

a mod 10 - последняя цифра трёхзначного числа

a div 100 - первая цифра трёхзначного числа

a div 10 mod 10 - средняя цифра трёхзначного числа

div - целочисленное деление

mod - остаток от целочисленного деления