Поле имен, ряд формул, текущая клетка
Const n=5;
var i,j:integer;
a:array[1..n,1..n] of integer;
Max:integer;
procedure p_max(input_mass:integer);
begin
if input_mass>Max then
Max:=input_mass;
end;
//Заполняем массив
procedure zapolnenue;
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=Random(1000);
end;
begin
Randomize;
zapolnenue;
writeln('Массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j],' ');
p_max(a[i,j]);
end;
writeln;
end;
writeln;
writeln('Max = ',Max);
end.
1. <span>Чтобы погода была солнечной достаточно чтобы не было ни ветра ни дождя.
Выделим простые утверждения: А=нет ветра; В=нет дождя; С=погода солнечная.
A & B → C
2. Люди получают высшее образование тогда,когда они заканчивают институт, университет или академию.
</span>Выделим простые утверждения: A - человек закончил институт; B<span> - человек закончил университет; С</span><span><span> - человек закончил академию; </span>D - человек получает высшее образование.
</span>A | B | C <span>→ D</span>
Написать формулу в Эксель довольно трудно. Посмотри для обучения сайты.
Var a,b,c:longint;
Begin
read(a,b,c);
writeln(a+b+c);
End.