Определите средний всех учащихся по каждому предмету. формат входных данных заданы сначала количество учащихся n, затем n строк, каждая из которых содержит фамилию, имя и три числа (оценки по трем предметам: , , информатике данные в строке разделены одним пробелом. оценки принимают значение от 1 до 5. формат выходных данных выведите три действительных числа: средний всех учащихся по , по , по информатике.пример ввод вывод 4 4.75 3.75 4.5 ivanov vasiliy 5 3 4 petrov sergey 4 3 5 konstantinov nikolay 5 5 5 kuznetsov ivan 5 4 4 написать на паскале

Var n,i, j, a, b, d: integer; a1, b1, d1: real; c: char; begin read (n); for i: =1 to n do begin for j: =1 to 2 do while c< > ' ' do read (c); read (a); a1: =a1+a; read (b); b1: =b1+b; read (d); d1: =d1+d; end; write (a1/n, ' ', b1/n, ' ', d1/n); end. где а1 - сумма оценок по первому предмету, в1 - по второму и т.д.

#include "stdafx.h" #include < iostream> #include< ctime> using namespace std; int main() { setlocale(lc_all, "ru"); srand(time(null));   const int size = 11;   int arr[size]; const int size2 = 1; int arr2[size2]{};   int arr3[size2]{};   for (int i = 0,j=0,d=0; i < size; i++) { arr[i] = rand() % 51-25;   if (arr[i] < 0) { arr2[j] = arr2[j] + arr[i]; }   if (arr[i] > 0) { arr3[d]= arr3[d]+ arr[i]; }   if (i == 10)   { cout < < "сумма отрицательных элементов массива = " < < arr2[j] < < endl;   cout < < "сумма положительных элементов массива = " < < arr3[d] < < endl; } }   system("pause"); return 0; }

1) var     a,b,c: real; begin writeln('введите значения углов в градусах: '); write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); if a+b+c=180 then     begin     writeln('существует');     if (a = 90)or(b = 90)or(c = 90) then write('является прямоугольным')     else write('не является прямоугольным')     end else writeln('не существует') end. 2) var n: integer; begin write('n = '); readln(n); writeln('количество чисел, кратных четырём на отрезке [1,',n,']: ',n div 4); end.