Примеры и решений используя описанный на предыдущей странице псевдоязык. вы должны внимательно изучить эти примеры и написать решения для аналогичных, но других
пример 1. нахождение
суммы всех чисел из
нумерованного
множества.
пример 2. проверка, что все числа нумерованного множества u являются положительными или 0. если встречается отрицательное число, то программа заканчивается с выводом на печать сообщение об ошибке.
пример 3. программа, позволяющая найти количество чисел больших чем 10 в нумерованном множестве u.
пример 4. программа, позволяющая найти максимальное число в нумерованном множестве u.
l = 0
from i=0 to i=n-1 {
l=l+u[i]
i=i+1
}
from i=0 to i=n-1 {
if u[i]< 0 print “error”,end i=i+1
}
l = 0;
from i=0 to i=n-1 {
if u[i]> 10 l=l+1
i=i+1
}
l=u[0];
from i=1 to i=n-1 {
if u[i]> l l=u[i]
i=i+1
}
написать программу, позволяющую найти сумму четных чисел. предполагается, что хотя бы одно четное число существует во множестве.
написать программу, позволяющую найти минимальное положительное число.
предполагается, что хотя бы одно положительное число существует во множестве.
написать программу, позволяющую найти максимальное нечетное число число. предполагается, что все числа множества положительные и сущетвует хотя бы одно нечетное число.
var p:array[1..10] of integer;
i, n2, n3, n4, n5:integer;
begin
n2:=0; n3:=0; n4:=0; n5:=0; {n2 - n5 - колич. 2-ек, 3-ек и т.д.}
writeln('Введите 10 элементов массива, отметки от 1 до 5');
for i:=1 to 10 do {ввод исходных данных}
begin
write('p[',i,'] = ');
readln(p[i])
end;
for i:=1 to 10 do {решение, перебор таблицы и суммирование}
begin
if p[i] = 2 then n2:=n2+1;
if p[i] = 3 then n3:=n3+1;
if p[i] = 4 then n4:=n4+1;
if p[i] = 5 then n5:=n5+1
end;
writeln('n2 = ',n2); {вывод результатов}
writeln('n3 = ',n3);
writeln('n4 = ',n4);
writeln('n5 = ',n5);
writeln('всего оценок',n2+n3+n4+n5)
end.