fkn+antitotal

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

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

Решение:

program u15z03;
var i,m:integer;
  a: array [1..7] of integer;
begin
  m:=0;
  for i:=low(a) to high(a) do
  begin
    write('vvedite chislo - ');
    readln(a[i]);
  end;
  for i:=low(a) to high(a) do
    if a[i]>m then
      m:= a[i];
  writeln('maximum = ',m);
  readln();
end.

Консоль:

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

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

Решение:

program u15z02;
var i:integer;
  a: array [1..7] of integer;
begin
  for i:=low(a) to high(a) do
  begin
    write('vvedite chislo - ');
    readln(a[i]);
  end;
  for i:=low(a) to high(a) do
    write(a[i],' ');
  readln();
end.      

Консоль:

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

Задайте в коде программы массив из чисел семи чисел:

	
1 12 45 6 7 18 99

Затем обойдите это массив, выводя его значения на экран.

Решение:

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

Консоль:

Задача 6 Урок 10.1

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

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

Задача 5 Урок 10.1

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

var i,a: integer;
begin
  writeln('Введите первое число');
  readln(a);
    if (a<100) then
      for i:= a downto 1 do
        write(i,' ')
    else
       for i:= 1 to a do
         writeln(i,' ');
  readln();
end.

Задача 4 Урок 10.1

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

Задача 3 Урок 10.1

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

var i: integer;
begin
  for i:= 35 to 64 do
    if (i mod 2)=0 then
      write(i,' ');
  readln();
end.
            

Задача 2 Урок 10.1

Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:
Если первое больше второго то в порядке возрастания, пример консоли:
ответ: 1 2 3 4 5
Иначе в порядке убывания, пример консоли:
ответ: 5 4 3

Задача 1 Урок 10.1

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

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

Задача 16 Урок 9

Решать по желанию, сдавать на проверку не обязательно:
Запрограммируйте историю: