1)
const
n=3;
var
a:array [1..n,1..n] of integer;
i,j,count:integer;
begin
count:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
if (a[i,j] < 5) and (a[i,j] > 0) then
inc(count);
end;
writeln;
end;
writeln('Количество элементов меньше пяти, но больше нуля равно ',count);
end.
2)
var
t,o:integer;
begin
write('Купленное количество тетрадей: '); readln(t);
write('Купленное количество обложек: '); readln(o);
t:=t*100; o:=o*50;
writeln('Итоговая сумма покупки: ',t+o)
end.
Всё просто.
Объяснение:
а. Алгоритм - описание конечной последовательности шагов в решении задачи, приводящей от исходных данных к требуемому результату.
б. цикл "Уборка дома"
Условие - пока в доме грязно.
1. Прийти в место хранения пылесоса.
2. Взять пылесос в руки.
3. Прийти в место где грязно.
4. Очистить его с пылесоса.
5. Отнести пылесос в место его хранения.
6. Положить там.
7. Прийти в место хранения тряпки для пыли.
8. Взять тряпку для пыли в руки.
9. Прийти в место где грязно.
10. Очистить его с тряпки для пыли.
11. Отнести тряпку для пыли в место её хранения.
12. Положить там.
в. 6+1+1*10+1+1=82 b=10
г. Как вы и просили - не делаю.
2.1) Переменная m записывает в себя наибольшее число массива.
ответ: m=10
2.2) if a[i]<0 then a[i]:abs(a[i]); //эта часть программы заменяет отрицательные элементы массива на их модуль
2.3) Эта часть программы считает сумму всех элементов массива в переменную s.