Программы составляются на Pascal 1) Составить блок-схему и программу. Даны три числа. Возвести в квадрат
те из них, значения которых неотрицательны.
2) Составьте программу, которая вычисляет сумму чисел от 1 до n,
значение n вводится с клавиатуры.
3) Составьте программу. Посчитать количество и сумму элементов
массива, принадлежащих интервалу от А до В
4) Составьте программу. Найти номер наибольшего элемента массива размером MxN, элементы которого задаются датчиком случайных чисел на
интервале [-67;23].
5) Составьте программу. Дана строка, состоящая из слов, разделенных
пробелами и знаками препинания. Определить длину самого длинного слова.
i, e, min, max, s, n: integer;
c: real;
begin
min := 32767; max := -32768; s := 0; n := 0;
Write('Введите 10 чисел через пробел ');
for i := 1 to 10 do
begin
Read(e);
if max < e then max := e;
if min > e then min := e;
if (e >= 100) and (e <= 999) then
if (i mod 10 = 1) and (i mod 7 = 0) then
begin n := n + 1; s := s + i end
end;
Writeln('max=', max, ', min=', min);
if n > 0 then Writeln('Искомое среднее равно ', s / n:0:5)
else Writeln('Нет трехзначных чисел, оканчивающихся на 1 и кратных 7')
end.