Найти: а) сумму всех целых чисел от 100 до 500; б) сумму всех целых чисел от a до 500 (значение a вводится с клавиатуры; a 500); в) сумму всех целых чисел от –10 до b (значение b вводится с клавиатуры; b –10); г) сумму всех целых чисел от a до b (значения a и b вводятся с клавиатуры; b a

А) var a,sum,i:integer;
begin
sum:=0;
for i:=100 to 500 do
begin
sum:=sum+i;
end;
writeln(sum);
end.

б) var a,sum,i:integer;
begin
sum:=0;
writeln('Введите число a');
readln(a);
for i:=a to 500 do
begin
sum:=sum+i;
end;
writeln(sum);
end.

в) var b,sum,i:integer;
begin
sum:=0;
writeln('Введите число b');
readln(b);
for i:=-10 to b do
begin
sum:=sum+i;
end;
writeln(sum);
end.

г) var a,b,sum,i:integer;
begin
sum:=0;
writeln('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
for i:=a to b do
begin
sum:=sum+i;
end;
writeln(sum);
end.

А) Ваня решает у доски задачу;
Хранение информации (в мозге Вани)
Обработка информации (оперирование исходной информацией для получения новой по определенным правилам)
Передача информации (От Вани – классу, используя доску)

б) Оля слушает по радио новости;
Передача информации (от радио – Оле, используя динамики)
Хранение информации (в мозге Оли)

в) Дима учит правило;
Хранение информации (внешняя память, книга)
Передача информации (от книги – Диме, используя текст)
Хранение информации (в мозге)

г) Саша и Вова разговаривают по телефону;
Хранение информации (в мозге у Саши)
Передача информации (от Саши – Вове, используя телефон)
Хранение информации (в мозге у Вовы)

д) Женя отправляет SMS-сообщение;
Хранение информации (в мозге у Жени)
Передача информации (от Жени – получателю, используя телефон)
Обработка информации (кодирование по каналу связи, декодирование)
Хранение информации (во внутренней памяти телефона у получателя)

е) Лена рисует план квартиры. 
Хранение информации (в мозге у Лены)
Обработка информации (структурирование, математические расчеты)
Хранение информации (внешняя память, лист бумаги/холст)

Program  Bolatkabylov;
uses crt;
const n=4;
const m=5;
var
  s:string; 
  i,j,min:integer;
  A:array[1..n,1..m] of integer;
  B:array[1..m] of integer;
begin
  S:='*** Alphaeus is thinking... ***';
  for i:=1 to length(s) do begin
  write(s[i]);
  for j:=1 to 500000 do s[i]:=s[i];
  end;
  writeln();
  writeln('***          OK             ***');
  writeln();
  writeln('Для заданного массива А размерности 4х5 сформировать одномерный массив В, ');
  writeln('элементами которого будут минимальные элементы в каждом столбце массива А.');
  randomize;
  writeln();
  writeln('Массив А: ');
  //Заполняем массив А случайными числами и выводим его
    for i:=1 to n do  begin
    for j:=1 to m do
    begin
      A[i,j]:=random(100)-50;
      write(A[i,j]:4,' ');
    end;
    writeln();
  end;
  //Находим минимальные элементы в каждом столбце и сохраняем в массив В
  for j:=1 to m do  begin
    min:=A[1,j];
    for i:=1 to n do
    begin
      if A[i,j]<min then min:=A[i,j];
    end;
    B[j]:=min;
  end;
  //Выводим массив В
  writeln();
  writeln('Mассив B: ');
  for j:=1 to m do
    write(B[j]:4,' ');
end.