Составить блок-схему алгоритма и программу на Паскале для обработки массива из 15 чисел. Вычислить произведение и количество элементов, не равных нулю и больше 5. На проверку нужно прислать код программы и результат работы в виде скриншота.
находиться во время перемены в компьютерном классе без разрешения старшего (преподавателя); включать без разрешения оборудование; трогать разъемы соединительных кабелей и проводов(возможно поражение электрическим током); прикасаться к питающим проводам и устройствам заземления; прикасаться к экрану и к тыльной стороне монитора, клавиатуры; включать и выключать аппаратуру без указания преподавателя; работать в верхней одежде и влажными руками; прыгать, бегать (пылить); класть диски, книги, тетради и другие предметы на монитор и клавиатуру; устанавливать или копировать программы с дискет, дисков и флеш-носителей на компьютер, предварительно не проверив их антивирусом; При появлении запаха гари немедленно прекратите работу, выключите аппаратуру и сообщите об этом преподавателю.
Во время работы:
строго выполняйте все указанные выше правила, а также текущие указания преподавателя; следите за исправностью аппаратуры и немедленно прекращайте работу при появлении необычного звука или самопроизвольного отключения аппаратуры; легко и быстро нажимайте на клавиши, не допуская резких ударов; не пользуйтесь клавиатурой и мышью, если не включен компьютер; работайте на клавиатуре чистыми руками; никогда не пытайтесь самостоятельно устранить неисправность в работе аппаратуры; не вставайте со своих рабочих мест, когда в кабинет входят посетители.
Basic: DIM tetradCount as INTEGER, oblojCount as INTEGER, price1 AS INTEGER, price2 AS INTEGER CLS INPUT "Введите кол-во тетрадей:"; tetradCount INPUT "Введите кол-во обложек:"; oblojCount
const
n = 15;
var
i, k: integer;
p: real;
x: array[1..n] of real;
begin
k := 0;
p := 1;
writeln('Введите ', n, ' элементов массива: ');
for i := 1 to n do
begin
readln(x[i]);
if (x[i] <> 0) and (x[i] > 5) then
begin
p := p * x[i];
inc(k);
end;
end;
if k = 0 then
writeln('Нет искомых элементов в массиве')
else
writeln('Количество искомых элементов: ', k, '; их произведение = ', p:0:3);
end.
Объяснение: