fkn+antitotal

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

Заполните массив целых чисел (длиной 8 элементов) случайными значениями от -5 до 5.
Сохраните все неотрицательные числа первого массива во второй массив
и выведете этот второй массив на экран (если количество сохраненных чисел во втором массиве меньше, чем его длина, то выведете только их, не обходя неинициализированные яйчейки).

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

Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.

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

У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом:
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17

Var i,e,n,m: integer;
    a: array [1..17] of integer;
Begin
e:=0;
n:=1;
m:=17;
for i:=1 to m do
    a[i]:=i;
for i:=low(a) to high(a) do
begin
     write(a[i],' ');
     e+=1;
     if e=n then
     begin
          writeln();
          e:=0;
          n+=1;
    end;
end;
readln();
end. 

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

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

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

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

Var i, max : integer ;
    A : array [1..7] of integer;
Begin
    for i:=low(a) to high(a) do
        readln(a[i]);

    Max := A[1];
    For i := 2 to 7 do
        if A[i]>Max then Max := A[i];
     Writeln(Max) ;
     Readln ;
End.  

Задача 2 Урок 12.2:

У вас есть программа, использующая цикл while:

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

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

type
  myArr= Array[1..7] of integer;
var i: integer; a: myArr;
 
  begin
 
  for i:=low(a) to high(a) do
      readln(a[i]);
 
  for i:=low(a) to high(a) do
      write(a[i],' ');
  readln();
  end.

Задача 1 Урок 12.2:

Имеется программа:

var i: integer;
begin
  for i:=5 to 34 do
    write(i, ' ');
 
  readln();
end. 

Ответьте на вопросы/выполните задания

Что в ней происходит?
Что будет на экране после её выполнения?
Перепишите её, используя цикл while.
Перепишите её, используя цикл repeat/until.

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

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

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

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой".