<span>нахождения лишнего, выполнения вычислений, раскраска, решения задачи
</span>
раскраска
На листочке всё написанно, но на всякий пожарны диктую ответы. Это48:
4,
6,
5,
4,
7.
Это49:
5,
2,
5,
5,
7.
за тоже самое время что и туда только + 2 раза скорость течения (один раз будет скорость без течения, 2 раза против течения)
1)MS Word - прикладной пакет программ
2)Norton Antivirus - Сервисное ПО
3)Paint - Графический редактор
4)Pascal ABC - Системы программирования
5)Windows-2010 - Системное ПО
6)Антивирусная программа- Сервисное ПО
7)Блокнот - Текстовый редактор (текстовое ПО)
8)Игра "Сапер" - Прикладные программы
9)Клавиатурный тренажер - Прикладные программы
10)Программа Проводник - Инструментальное ПО
11)Проигрыватель Windows Media - Сервисное ПО
12)Электронный словарь - Прикладное ПО
Uses crt;
Var A:array[1..10]of integer;
q,w,i,k,j:integer;
begin
randomize;
for q:= 1 to 10 do
begin
A[q] := random(256);
write(A[q]:4)
end;
for i := 1 to 9 do
for j := 1 to 10 - i do
if A[j] > A[j + 1] then begin
k := A[j];
A[j] := A[j + 1];
A[j + 1] := k;
end;
for i:=1 to 10 do
w:=(A[1]+A[10])/2;
write(w)