1. напишите программу, запрашивающую ваш год рождения, год рождения вашей мамы и печатающую, во сколько лет мама вас родила. 2. напишите дружественную по отношению к пользователю программу. пусть она обращается к вам по имени, а затем предложит последовательно ввести прилагательное, сущ., наречие и глагол, чтобы в результате вывести на экран несложную фразу с использованием введённых слов.

Вам сделать программу?  

1.Норберт Винер роль в исследовании информационных технологий состоит в том, что он исследовал возможности перенесения поведенческих принципов животных в некую, неизвестную систему — «обучения» механизм

2.лод Шеннон - основатель теории информации в первую очередь. Как учёный этот американский математик приложил свои руки и в инженерии, кибернетики, электротехнике, математике и теории информации.

3.Теодор Холм Нельсон в 1965 году

4.Изобретателями всемирной паутины считаются Тим Бернерс-Ли и, в меньшей степени, Роберт Кайо

5.Швейцарский, немецкий и российский математик, внесший значительный вклад в развитие математики, а также механики, физики, астрономии и ряда прикладных наук

Объяснение:

ответ

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.

Объяснение: