program v1;
Var a:array [1..10] of integer;
i,j,j1,min,n,max,q:integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(31)+10;
Writeln (' Znachenija matracy ');
for i:=1 to 10 do write (a[i]:3); writeln;
Max:=a[1];
for i:=1 to 10 do
if a[i]>=max then begin
max:=a[i];
j:=i;
end;
min:=a[1];
for i:=1 to 10 do
if a[i]<=min then begin
min:=a[i];
j1:=i;
end;
q:=a[j1];
a[j1]:=a[j];
a[j]:=q;
For i:=1 to 10 do write (a[i]:3); writeln;
Writeln (' Maxim element = ',max);
writeln (' Minim element = ',min);
end.
1 . Какая программа не является электронной г) Word
2. Как называется документ в программе Excel?
б) книга
3. Рабочая книга состоит из…
б) нескольких рабочих листов
4. Наименьшей структурной единицей внутри таблицы является..
б) ячейка
5.
г) картинки
6. Значения ячеек, которые введены пользователем, а не получаются в результате расчётов называются…
в) исходными
7. Укажите правильный адрес ячейки.
б) Р6
8. К какому типу программного обеспечения относятся ЕТ?
в) к прикладному
9 Тест. Формула - начинается со знака…
в) =;
10. Какая ячейка называется активной?
в) заполненная
а+b>8
Подставляем:1+1>8, это ложь, значит начинаем выполнять действия :
1 цикл
a:=1+1=2
b:=1+2=3
a+b>8
Подставляем:3+2>8, это ложь, значит начинаем выполнять действия
2 цикл
a:=2+1=3
b:=3+2=5
Подставляем :3+5>8, это ложь, значит начинаем выполнять действия
3 цикл
a:=3+1=4
b:=5+2=7
Подставляем 4+7>8, это правда, значит цикл закончен
ответ: 3 раза