алг нач целтаб Dat[1:8] Dat[1] :=7 ; Dat[2] : = 7 Dat[3] : =6 ; Dat[4] : =8 Dat[5] : =4 ; Dat[6] : =5 Dat[7] :

1. Редактирования графического изображения символов шрифта
2. Построение диаграмм
3. Работы с графическими изображениями
4. Создание графического образа текста
5. Просмотра фоторгафий

элементов, значение которых более чем в два раза превосходит значение предшествующего элемента. Например, для массива из 6 элементов, содержащего числа 2, 5, 10, 15, 40, 100, программа должна выдать ответ 3 (условию соответствуют элементы со значениями 5, 40 и 100). Программа должна вывести общее количество подходящих элементов, значения элементов выводить не нужно. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных переменных.
Паскаль Алгоритмический язык
const N = 2014;
var a: array [1..N] of integer;
i, j, k: integer;
begin
for i:=1 to N do
readln(a[i]);
…
end. алг
нач
цел N=2014
целтаб a[1:N]
цел i, j, k
нц для i от 1 до N
ввод a[i]
кц
…
кон

Алгоритмический язык
Бейсик
Паскаль
алг

нач

цел s, k

s := 0

нц для k от 7 до 11

s := s+11

кц

вывод s

кон


DIM k, s AS INTEGER

s = 0

FOR k = 7 TO 11

s = s+11

NEXT k

PRINT s
Var s,k: integer;

Begin

s := 0;

for k := 7 to 11 do

s := s+11;

writeln(s);

End.

Что будет нарисовано после выполнения Чертежником алгоритма:
использовать чертежник
Алг
Нач
Поднять перо
Смест. в точку (2,4)
Опустить перо
Смест. на вектор (-1,0)
Смест. на вектор (3,3)
Смест. на вектор (-5,0)
Смест. на вектор (0,-3)
Смест. на вектор (4,0)
Смест. на вектор (0,3)
Кон

c := 0

нц пока b <> 10

c := c + b

b := b + 1

кц

вывод c

желательно с обьяснением