Написано на с++
//WlAY...
#include <iostream>
using namespace std;
int main()
{
int N;
cout << "Введите число учеников ->";
cin >> N;
if (N < 1)
{
cout << "ОШИБКА(учеников меньше 1)" << endl;
}
if (N > 30)
{
cout << "ОШИБКА(учеников больше 30)" << endl;
}
else
{
int b[N];
int i;
int n1 = 0, n2 = 0, n3 = 0;
for (i = 0; i <= N - 1; i++)
{
cout << "Введите кол-во правильно решённых примеров ученика номер" << i + 1 << "->";
cin >> b[i];
if (b[i] == 10)
cout << "ОШИБКА(заданий всего 10)";
if (b[i] == 10)
n1 += 1;
if (b[i] < 10 && b[i] >= 5)
n2 += 1;
if (b[i] < 5)
n3 += 1;
}
cout << "---------------------ИТОГ-------------------------" << endl;
cout << n1 << " ученик(а, ов) решил(и) все задания правильно (YES)" << endl;
cout << n2 << " ученик(а, ов) получил(и) удовлетворительную оценку (NO)" << endl;
cout << n3 << " ученик(а, ов) получил(и) неудовлетворительную оценку (NO)" << endl;
}
}
Поделитесь своими знаниями, ответьте на вопрос:
Написать по блок-схеме программу на языке Паскаль. Ниже фото
ответ: Код есть только немного на другой алгоритм, он похож, можешь удалить не нужные коды алгоритма!
Похожий алгоритм прикрепил!
КОД:
1
2
3
4
5
6
7
8
9
10
11
12
var x,k1,k2:integer;
begin
writeln('Вводите целые положительные и отрицательные числа конец ввода 0');
k1:=0;
k2:=0;
repeat
readln(x);
if x<0 then inc(k1)
else if x>0 then inc(k2);
until x=0;
write('Количество отрицательных=',k1,' количество положительных=',k2);
end.
Объяснение: