Предпоследние семь строчек записывают массив работников и зарплату (созданная случайным образом), общую сумму и количество работников с указанной зарплатой в файл (в программе настроено в файл output.txt на локальном диске С, при желании можно изменить название файла и месторасположения его)
При правильной работе программы на диске С данный файл создается. Если его открыть, в нем будут те же данные, которые выдаст программа на экран монитора
1) цикл проработает 3 раза, но деление на 8 произойдёт дважды
2) идём восходящим методом. чтобы число было наибольшим, то нужно помножить наибольший остаток при последней итерации цикла, следовательно остатки в цикле будут 6. 0, 0
теперь помножим 6 на 8 два раза
получим следующую цепочку 6->48->384, следовательно 384 наибольшее такое число.
Ответ: 384
Немного не понятно с условиями последней задачи. Написал как понял. См. приложения
Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.