Условие задания
15.
Определи количество ячеек в диапазоне
C1C11:​

//Pascal ABC.NET v3.0 сборка 1111

Const
 s=5;

Var
 ar:array[1..s] of integer;
 n,m,i:integer;
begin
 writeln('N');
 readln(n);
 writeln('M');
 readln(m);
 writeln('Array:');
 for i:=1 to s do
   readln(ar[i]);
 writeln('First array:');
 for i:=1 to s do
  begin
   write(ar[i]:4);
   if ar[i] div n<>0 then ar[i]:=ar[i]+m;
  end;
 writeln;
 writeln('Final array:');
  for i:=1 to s do
   write(ar[i]:4);
end. 

Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
   1   2   3   4   5
Final array:
   1   2   6   7   8

//Блок-схема во вложении

1) Давай с тобой определим, что такое граф, или семантическая сеть. Граф - это когда некоторое количество точек соединено линиями, и линии не всегда есть между каждой парой точек. Графы применяются для изучения какого-либо события, для анализа данных. К примеру, есть станции А, Б, В и Г. Тебе надо с А попасть на станцию Г кратчайшим путём. Чтобы узнать этот самый путь, нужна карта. А схематичная карта такого пути - это и есть граф! (Кстати, карту метро тоже можно назвать очень большим графом).
2) Наметим пункты нашего графа. Какие мы знаем? Например, Облака, Дождь, Снег, Поверхность Земли, Земля, Животные, Растения, Пар.
3) Располагаем их и соединяем стрелочками (движение возможно только в одну сторону) или просто линиями.