ответ
2,0/5
2
yasadc
1)uses crt;
const m=5;
n=5;
var a:array[1..m,1..n] of integer;
b:array[1..m] of integer;
i,max,min,j,k,p:integer;
begin
randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(20);
min:=20;
max:=0;
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
writeln;
k:=1;
repeat
for i:=k to k do
for j:=1 to n do
begin
if (a[i,j]<min) then begin min:=a[i,j]; b[k]:=a[i,j]; end;
end;
inc(k);
min:=20;
until k>n;
for p:=1 to m do
if (b[p]>max) then max:=b[p];
writeln(max);
end.
Объяснение:
1.Норберт Винер роль в исследовании информационных технологий состоит в том, что он исследовал возможности перенесения поведенческих принципов животных в некую, неизвестную систему — «обучения» механизм
2.лод Шеннон - основатель теории информации в первую очередь. Как учёный этот американский математик приложил свои руки и в инженерии, кибернетики, электротехнике, математике и теории информации.
3.Теодор Холм Нельсон в 1965 году
4.Изобретателями всемирной паутины считаются Тим Бернерс-Ли и, в меньшей степени, Роберт Кайо
5.Швейцарский, немецкий и российский математик, внесший значительный вклад в развитие математики, а также механики, физики, астрономии и ряда прикладных наук
Объяснение:
текст определения этой функции. В противном случае удалите все комментарии }
{
function sign(x:real):integer;
begin
if x<0 then sign:=-1
else
if x>0 then sign:=1 else sign:=0
end;
}
var
x1,x2,y1,y2:real;
begin;
Write('Введите через пробел координаты точки 1: ');
Read(x1,y1);
Write('Введите через пробел координаты точки 2: ');
Read(x2,y2);
if (sign(x1)=sign(x2)) and (sign(y1)=sign(y2))
then Writeln('Точки находятся в одной четверти')
else Writeln('Точки находятся в разных четвертях')
end.
Тестовое решение:
Введите через пробел координаты точки 1: -3.5 8.1
Введите через пробел координаты точки 2: -5 4
Точки находятся в одной четверти