ДАЮ Без пробелов напишите строку кода, пропущенную в описанном цикли для заполнения элементов описанной квадратной матрицы, находящихся на её главной диагонали единицами.
a: array [1..10, 1..10] of 0..1;
for i:=1 to 10 do

2)Сколько проверок будет выполнено при линейном поиске в массиве из 50 элементов максимального?
3)Какая строка пропущена в описанной части программы для поиска первого из минимальных элементов массива?
min:=1;
for i:=2 to n do
...
then min:=i;
Варианты ответов
if i>min
if a[i]
if a[i]>a[min]
if i
4)Какой индекс имеет элемент с максимальным значением в описанном массиве, отсортированном по неубыванию?
a: array [1..100] of integer;
Варианты ответов
50
100
1
51
5)Какая строка пропущена в описанной части программы для сортировки элементов массива а по невозрастанию?
repeat
p:=true;
for i:=1 to n-1 do
...
then begin
p:=false;
k:=a[i];
a[i]:=a[i+1];
a[i+1]:=k;
end;
until p;
Варианты ответов
if a[i]>a[i+1]
if i
if a[i]
if i>a[i]
6)Сколько перемен местами элементов массива будет совершено при сортировке заданного массива по убыванию методом пузырька?
24 74 23 40

вот

Объяснение:

Сканер — устройство, предназначенное для распознавания бумажных документов и создания их электронных копий. Если рассматривать наиболее распространённую планшетную модель, то её рабочая поверхность состоит из двух частей: стекла, за которым находится механизм распознавания документов (можно сравнить с фотоаппаратом), и крышки, обеспечивающей стабильное положение листа на время создания копии. Электронная начинка сканера ориентирована на перевод полученного изображения в понятный компьютеру код.

Принтер — устройство, предназначенное для создания бумажных копий электронных документов. Габаритность этой техники связана с необходимостью разместить в корпусе:

С сканера ты передаешь информацию на комп (отсканировала книгу, и тебе уже не надо текст набирать на клавиатуре). А принтер выдает графическое изображение (можешь распечатать текст, фотографии на бумагу).

1) Program n1; 
var n,i:integer; 
t:array[1..100] of real; 
a,b:real; 
begin 
readln(n); 
readln(a); 
readln(b); 
for i:=1 to n do 
begin 
t[i]:=(b-a)/n; 
write(t[i],'  '); 
end; 
end.
2) Program n1; 
var a:array[1..100] of integer; 
n,i:integer; 
k:real; 
begin 
read(n); 
k:=0; 
for i:=1 to n do 
read(a[i]); 
for i:=1 to n do 
if a[i] mod 2 <> 0 then 
k:=k+1; 
writeln; 
writeln('кол-во нечет. чисел равно ',k,''); 
end.
6) Program n1; 
var a:array[1..100] of real; 
i,n:integer; 
s,sr:real; 
begin 
read(n); 
for i:=1 to n do 
read(a[i]); 
s:=0; 
sr:=0; 
for i:=1 to n do 
s:=s+a[i]; 
sr:=s/n; 
writeln('сред. арифметическое равно ',sr,''); 
end.
7)  Program n1; 
var a:array[1..100] of real; 
i,n:integer; 
min,max:real; 
begin 
read(n); 
for i:=1 to n do
read(a[i]); 
min:=a[1]; 
for i:=2 to n do 
if a[i]<min then 
min:=a[i]; 
max:=a[1]; 
for i:=2 to n do 
if a[i]>max then 
max:=a[i]; 
writeln('максимальный элемент равен ',max,''); 
writeln('минимальный элемент равен ',min,''); 
end.
8) Program n1; var a:array[1..100] of real; i,n:integer; min,max,nom1,nom2:real; begin read(n); for i:=1 to n do read(a[i]); min:=a[1]; nom1:=1; for i:=2 to n do if a[i]<min then begin min:=a[i]; nom1:=i; end; max:=a[1]; nom2:=1; for i:=2 to n do if a[i]>max then begin max:=a[i]; nom2:=i; end; writeln('максимальный элемент равен ',max,', его номер ',nom2,''); writeln('минимальный элемент равен ',min,', его номер ',nom1,''); end.
9) Program n1; var a:array[1..100] of real; i,n:integer; min,max,s,sr:real; begin read(n); randomize; for i:=1 to n do begin a[i]:=random(100)+1; write(a[i],'  '); end; writeln; s:=0; sr:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('ср. арифм. = ',sr,''); min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; writeln('максимальный элемент равен ',max,''); writeln('минимальный элемент равен ',min,''); end.