fkn+antitotal

Урок 15

У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом:

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17

ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).

Урок 15

Пользователь вводит массив целых чисел из 7 элементов.
Найдите из них два самых больших числа и выведите их на экран.

Задача 16 урок 11

У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.

Пример работы в консоли:

Урок 15

Пользователь вводит массив целых чисел из 7 элементов.
Найдите из них самое большое число и выведите его на экран.

Урок 15

Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.

Урок 15

Задайте в коде программы массив из чисел семи чисел:
1 12 45 6 7 18 99
Затем обойдите это массив, выводя его значения на экран.

type myArr = array[1..7] of integer;

var a: myArr;
    i: integer;

begin
  a[1] := 1;
  a[2] := 12;
  a[3] := 45;
  a[4] := 6;
  a[5] := 7;
  a[6] := 18;
  a[7] := 99;
  writeln('Elementi massiva');
  for i := low(a) to high(a) do
    write(a[i], ' ');
  readln();
end.

КОНСОЛЬ

Задача 15 урок 11

Задача 14 урок 11

У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

Задача 13 урок 11

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:

46541

(используйте опеции div и mod, подразумевается решение через цикл )

Задача 12 урок 11

Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)

program programma12;
var i,a,b : integer;
begin
  i:=15;
  a:=i mod 2;
  b:=i div 3;
  writeln(i);
  write(a,' ',b);
  readln();
end.