Вариант 1 Задание 1. Построить блок-схему для решения
задачи со следующими условиями:
1) Если значение исходного числа больше
5, то результатом будет
противоположное число;
2) Если значение исходного числа
меньше 5, то результатом будет
Квадрат исходного числа
3) Если значение исходного числа равно 5, то результатом будет исходное число.
Задание 3. Построить блок схему для решения
следующей задачи: необходимо вычислить
сумму 1+2+3+...+(N-1), если N=10​

Для построения ЭВМ двоичная система счисления оказалась более удобной. С технической точки зрения создать устройство с всего лишь двумя состояниями проще. (есть потенциал -1 \нет - 0)Для их представления достаточно иметь электронные схемы. Официальное рождение двоичной арифметики связывают с именем Г.В.Лейбница, который опубликовал статью, описывающию все арифметические действия над двоичными числами. Потом было более активное и глубокое изучение двоичной системы. Первые двоичные вычислительные машины построили во Франции и Германии. А утверждение двоичной системы в качестве общепринятой приконструировании ЭВМ состоялось уже под влиянием работы А.Бекса, Х. Гольдстайна и Дж.Фон Неймана о проекте первой ЭВМ с хранимой в памяти программой, написанной в 1946 году. В этой же работе и аргументирован переход к двоичной системе.
Проще говоря 1 - есть сигнал, 0 - нет сигнала, намагниченный участок\ненамагниченный и т.д. и машине понятно и человеку можно разобраться, вот так и создали двоичный код, научились по нему программировать, сформулировали принципы, необязательно было все расписывать, главное знать принцип - значение каждой цифры "по месту" при переходе от младшего разряда к старшему увеличивается вдвое. А вот уж языки пограммирования расписываются

Const n = 5;
const m = 5;
var a:array [1..n,1..m] of integer;
     i,j,k,l,max,min:integer;
begin
  randomize;
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      a[i,j]:=random(30)+1;
      write (a[i,j]:4);
     end;
    writeln;
   end;
  max:=1;
  min:=1;
  k:=1;
  l:=1; 
  for i:=1 to n do
   for j:=1 to m do 
    if a[i,j]>a[max,k] then
     begin
      max:=i;
      k:=j;         
     end else if a[i,j]<a[min,l] then
     begin
      min:=i;
      l:=j;
     end;
  writeln ('Max: ',a[max,k],'. Index: [',max,',',k,']');
  writeln ('Min: ',a[min,l],'. Index: [',min,',',l,']');
end.