1951год.-введен в эксплуатацию первый отечественный компьютер мэсм с хранимой программой, созданный под руководством академика с. а. лебедева.
#1
var
a : array [1..21] of integer;
min : integer : = 32766;
begin
for var i: =1 to 21 do
readln(a[i]);
for var i: =1 to 21 do
if (a[i] < min) then
min : = a[i];
writeln(min);
end.
#2
var
y : array [1..25] of integer;
isthefirst : boolean : = false;
last : integer : = 0;
begin
for var i: =1 to 25 do
readln(y[i]);
for var i: =1 to 25 do
if (y[i] < 0) and (isthefirst = false) then
begin
writeln(i);
isthefirst : = true;
break;
end;
for var i: =2 to 25 do
begin
if (i = 25) then
begin
if (y[i] < 0) and (last = 0) then
last : = i;
break;
end;
if ((y[i+1] > 0) and (y[i] < 0)) then
last : = i;
end;
if (isthefirst) and (last = 0) then
last : = 1;
if (last < > 0) then
writeln(last) else
writeln('there''no numbers');
end.
//не бейте за кастыли . мне лень
#2
type tintmassiv = array of integer; //дин. массив (более гибок в работе)
var
n : integer;
sum : integer : = 0;
counter : integer : = 0;
var a: tintmassiv;
begin
readln (n);
setlength(a, n);
for var i: =0 to n-1 do
begin
readln(a[i]);
if (a[i] > 0) and (a[i] mod 2 = 0) then
begin
sum += a[i];
counter += 1;
end;
end;
if (sum = 0) or (counter = 0) then
begin
writeln('there''re no numbers');
exit;
end;
writeln(sum/counter);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Создание самого первого отечественного компьютера
самым первым электронным программируемым компьютером был 1500 ламповый "коллос", который был создан 1943 году, профессором максом ньюменом в великобритании. он предназначался для расшифровки кодов шифровальной машины "энигма". те работы на которые у механических дешифраторов уходили дни, "колосс" выполнял за несколько часов. информация о нем была под грифом совершенно секретно практически до конца 20 века.