Скорее всего большое приемущество обработки данных с электронных таблиц в том ,что при такой обработке допущение ошибки минимально ( это уже зависит от человека ,где он неправильно ввёл данные ) . Если же обрабатывать таблицу вручную ,то верояность допущения ошибок велика!
Так же преимущество в том ,что при обработке информации при таблицы намного быстрее проходит этот процесс ,нежеле ты сама будешь всё проверять .
Ну и конечно же люди сейчас настолько ленивы ,чтобы самостоятельно обрабатывать какую-либо информацию, поэтому мы всё доверяем исскуственному разуму:)
n = 20;
var
a: array[1..n] of integer;
b: array[1..(n div 3)+1] of integer;
i, m: integer;
begin
Randomize;
Writeln('Элементы массива');
m := 0;
for i := 1 to n do
begin
a[i]:= Random(155)-55;
Write(a[i]:4);
if (a[i]>51) and (i mod 3=0) then
begin m:=m+1; b[m]:=a[i] end
end;
Writeln;
if m>0 then begin
Writeln('Элементы сформированного массива');
for i := 1 to m do Write(b[i]:3);
Writeln
end
else Writeln('Нет элементов с индексом, кратным 3, больших 51')
end.
Тестовое решение:
Элементы массива
57 -3 79 -49 30 87 -15 49 -38 -49 -45 -38 55 -27 48 -29 56 63 79 -2
Элементы сформированного массива
79 87 63