fkn+antitotal

Задача 11

Задайте случайным образом массив из 20-ти элементов (целых чисел). Найдите минимальное число и напечатайте его.

<?php
function fillingArray($N, &$arr)
{
    for ($i = 0; $i < $N; $i++){
        $arr[$i] = rand(-100, 100);
    }
    echo min($arr);
}
fillingArray(20, $arr);

Задача 10

Задайте случайным образом массив из N элементов (целых чисел). Найдите максимальное число и напечатайте его.

<?php
function fillingArray($N, &$arr)
{
    for ($i = 0; $i < $N; $i++){
        $arr[$i] = rand(-100, 100);
    }
    echo max($arr);
}
fillingArray(7, $arr);

Задача 9

Задайте случайным образом массив из N элементов. Выведите его на экран "ёлочкой". Вот начало такого вывода:

1
2 3
4 5 6
7 8 9 10
11 12 ......

Второй вариант - сделайте то же самое, но не используйте массив: у вас есть переменная N, выведете на экран, все числа до N, по тому же принципе что и выше, например, если N=9, то получим:

1
2 3
4 5 6
7 8 9

ВАРИАНТ 1

http://fkn.ktu10.com/?q=node/8612

Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

program task7_lesson11;
var
   i:integer;
begin
     for i:=1 to 100 do
         if ((i mod 7) = 0) then
            writeln(i);
     readln();
end.        

http://fkn.ktu10.com/?q=node/8612

Выведите на экран, все числа делящиеся на 3 из диапазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

program task6_lesson10;
var
   i:integer;
begin
    for i:=35 to 117 do
        if ((i mod 2) = 0) or ((i>=45) and (i<=99)) then
           writeln(i);
    readln();
end.

http://fkn.ktu10.com/?q=node/8612

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

http://fkn.ktu10.com/?q=node/8612

Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

program task4_lesson10;
var
  i:integer;
begin
     for i:=35 to 117 do
         begin
              if ((i mod 2) = 1) and ((i mod 3) = 0) then
              writeln(i);
         end;
     readln();
end.

http://fkn.ktu10.com/?q=node/8612

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.

program task3_lesson10;
var
   int,i:integer;
begin
     writeln('Enter integer :');
     readln(int);
     if (int > 100) then
        for i:=int downto 1 do
            writeln(i)
     else
         for i:=1 to int do
             writeln(i);
     readln();
end.

http://fkn.ktu10.com/?q=node/8612

Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 5 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.

http://fkn.ktu10.com/?q=node/8612

Выведите на экран, все четные числа от 35 до 64.

program task1_lesson10;
var
  i: integer;
begin
  for i:=35 to 64 do
  if((i mod 2)=0) then
        writeln(i);
  readln();
end.