fkn+antitotal

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

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

http://fkn.ktu10.com/?q=node/8612
Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

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.

var i:integer;
begin
  for i:=35 to 117 do
   begin
     if ((i mod 3) = 0) then
         writeln(i, ' ');
    end;
    for i:=45 to 99 do
    begin
      if ((i mod 2) = 1) then
         writeln(i, ' ');
   end;
  readln();
end.

http://fkn.ktu10.com/?q=node/8612
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

http://fkn.ktu10.com/?q=node/8612
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

program Hello;
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;
end.

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:

var s:integer;
begin
    writeln('Vvedite chislo 1 ili 5');
    readln(s);
    if (s = 1) then
       writeln('soobchenie 1'); 
    if (s = 5) then
        writeln('soobchenie 2'); 
 
    readln();
end;

-- но сейчас код написан неоптимально и при каждом запуске выполняется 2 сравнения, при этом код можно переписать так, что при вводе одного из двух значений, которые приводят к выводу сообщения, сравнение будет выполняться только один раз.

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

program project98;
var k,n,d: integer;
 begin
   writeln('Vvedite balli Koli, Mishi i Peti');
   readln(k,n,d);
   if (k+n>20) or (d*n<55) then
   writeln('Nichya')
   else writeln('Pobedil Kolya');
   readln();
 end.   

Пользователь вводит четыре числа, найдите из них максимальное.

program Project97;
var a,b,c,d: integer;
  begin
    writeln('Vvedite chisla ');
      readln(a,b,c,d);
      if (a>b) and (a>c) and (a>d) then
      writeln('Maksimalnoe chislo ',a);
      if (b>a) and (b>c) and (b>d)  then
      writeln('Maksimalnoe chislo ',b);
      if (c>a) and (c>b) and (c>d) then
      writeln('Maksimalnoe chislo ',c)
      else writeln('Maksimalnoe chislo ',d);
      readln();
  end.   

Консоль:

Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.

program project963;
var a,b,c,max: integer;
    begin
      writeln('Vvedite a b c');
      readln(a,b,c);
      if (a>b) then
      max:=a
      else max:=b;
      if (c>max) then
      max:=c;
      writeln('Maksimalnoe chislo ',max);
      readln();
    end.  

Консоль:

Vvedite a b c 
1
2
3
Maksimalnoe chislo 3

С вложенными блоками (без and, все опараторы if должны быть в полной форме).