с несколькими заданиями по основам алгоритмизации. Заранее благодарю за Создать числовой массив A[1..N].
Вычислить произведение всех элементов, значения которых лежат в интервале [1,10]. Выдать на экран количество этих элементов и их произведение.Нужна блок-схема алгоритма решения задачи и листинг программного модуля.
2.Ввести двумерный массив Е[10,10]. Вычислить сумму элементов лежащих на побочной диагонали матрицы и отобразить ее на экране.Так же нужна блок-схема алгоритма решения задачи и листинг программного модуля.
3.Ввести строку символов. Подсчитать количество символов в строке больше символа «К» и вывести на экран.Блок-схема алгоритма,листинг программы.
Будет выведено: sr=4.5
Объяснение:
Расписал подробно и с комментариями.
program a78; //Название программы
var i,s:integer; sr:real; //Объявление переменных
const a:array [1..6] of integer = (1,7,3,6,0,10); //объявление массива
begin //тело программы
s:=0; //присваиваем s к 0, своеобразный буфер
for i:=1 to 6 do //для значений i от 1 до 6 выполняй следующие действия:
s:=s+a[i]; //тело цикла, то что будет циклиться и выполняться
sr:=s/6; //тело цикла, то что будет циклиться и выполняться
writeln('sr=',sr); //вывод значения
end. //конец программы
var
number: integer;
begin
var size := readinteger;
var max := -32768;
for var i := 1 to size do
begin
number := readinteger;
if (number mod 4 = 0) and (number > max) then
max := number;
end;
write(max);
end.
Объяснение:
var
number: integer; // Целочисленная переменная, хранящая вводимые с клавиатуры числа
begin // Начало программы
var size := readinteger; // Считываем размер последовательности с клавиатуры
var max := -32768; // integer принадлежит диапазону [-32 768…32 767], взял за максимум самое маленькое число
for var i := 1 to size do // Идём от 1 до размера последовательности
begin // Начало цикла
number := readinteger; // Считываем число последовательности с клавиатуры
if (number mod 4 = 0) and (number > max) then // Если число делится на 4 без остатка и оно > max
max := number; // max присваиваем number
end; // Конец цикла
write(max); // Выводим ответ
end. // Конец программы