Const n=10;
var a:array[1..n] of integer;
s,r,i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
s:=0;
for i := 1 to n do
begin
s:=s+a[i];
r:=s/n;
end;
writeln('r=',r);
readln;
<span>end. </span>
Информатика
1)Средство оъеденения людей по всему миру? интернет.
2)Антивирусное ПО для защиты Пк? Нортон
3)Без чего нет решения? Формулы
4)Файл или Папка, по другому? Объект
6)Без чего нет жизни у Пк? материнская плата
7)Программа для защиты ПК? Антивирус
8)Часть кода в html? тэг
10)Устройство ввода информации? Клавиатура
остальное не могу, и тут вопрос у меня не так поставлен
Использовать Робот
алг
нач
нц 2 раз
нц 4 раз
закрасить
вниз
кц
нц 6 раз
закрасить
вправо
кц
нц 4 раз
закрасить
вверх
закрасить
кц
нц 4 раз
влево
кц
нц 2 раз
вниз
закрасить
кц
нц 2 раз
вправо
закрасить
кц
вверх
закрасить
нц 4 раз
если справа свободно и снизу свободно то
вправо
вниз
все
кц
кц
кон
const nx =30;var i,j,n,a:integer;
M,B:array[1..nx] of integer;
begin
Randomize;
write('Введите число элементов массива n'); Read(n);
write('Введите число а '); Read(a);
for i:=1 to n do begin
M[i]:= random(10)-5;
if M[i] = a then begin j:=j+1;B[j]:=i;end;
write(M[i]:3);end;writeln;
for i:=1 to j do
writeln('Элемент массива совпадает а = ' ,a, ' на позиции ', B[i]);<span>end.</span>