можна отримувати гарны оцынки, здобувапти знання!
Ответ:
3,частично 1
Объяснение:
Ибо структура у всех записей одна и та же
Я считаю что так:
только английский-25 чел
только французкий-27
оба языка-18
Программа может выглядеть такЖ
uses crt;
const n=4;
type Mas=array [1..n] of real;
Var A: Mas;
i: integer;
Sum, Sred: real;
Begin
ClrScr;
for i:=1 to n do
begin
Write('A[',i, ']=');
ReadLn(A[i]);
Sum:=Sum+A[i];
end;
Sred:=Sum/n;
WriteLn ('Sred = ', Sred:5:2);
ReadLn;
end.
вот такая вот таблица истинности и схема