Надо смотреть не по горизонтале, а по вертикале
1. Начало
2. Запиши число
3. Вычти 10 (разница между 5 и 15, 20 и 30 и т.п.)
4. Если полученное число меньше 10 (разница 15 и 18, 30 и 27 и т.п.)
то 5. Прибавь 3
иначе 6. Вычти 3
7. Прибавь 2 (разница 18 и 16, 27 и 25 ...)
8. Конец
Вроде так
Uses crt;
var x,m: array [1..40] of integer;
n,k,c:integer;
begin
readln(n);
c:=1;
for k:=1 to n do
begin
write('x[',k,']:');
readln(x[k]);
end;
k:=1;
repeat
if x[k]>0 then
begin
m[c]:=x[k];
inc(c);
inc(k);
end
else inc(k);
until c=6;
writeln;
for c:=1 to 5 do
writeln('m[',c,']:',m[c]);
<span>end.</span>
http://pro-spo.ru/workopenoffice/3900-openoffice-calc-dlya-nachinayushhix-elektronnaya-tablicza-kak-baza-dannyx-pechat-dokumenta СИЛКА НА САЙТ З ПОЯСНЕННЯМ!!!
1)Курсив
3)Выравнивание
7)книжная
5)Междустрочный
10)символ
11)Редактирование
12)Форматирование
14)кегль
19)альбомная
--------------------------------
остальное ещё неотгадала))