Sadikova Gavrikov
?>

20 напишите программу, которая в последовательности натуральных чисел определяет минималь- ное чётное число. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется чётное число. количество чисел не превышает 1000 введённые числа не превышают 30 0 программа должна вывести одно число — минимальное чётное число. пример работы программы: входные данные выходные данные 8 4 3 20 6 6

Информатика

Ответы

misspodvigina

uses

    crt;

const

    max=50;

var

  a: array[1..max,1..max] of integer;

  i,j,n,s,k: integer;

begin

    writeln('wvedite razmernost matrici');

    readln(n);

    writeln('wvedite matricu ',n,' x ',n);

    for i: = 1 to n do

        begin

              for j: = 1 to n do

                  read(a[i,j]);

        end;

    s: =0;

    k: =0;

    for i: = 1 to n do

        begin

              for j: = 1 to n do

                  if (j mod 2< > 0) and (i mod 2< > 0) then

                    begin

                          s: =a[i,j]+s;

                          k: =k+1

                    end;

        end;

        s: =round(s/k);

        writeln('sredne arifmet znashenie s neshetnimi indeksami ravno ', s);

readkey

end.

superbalsa
Укажу часть решения (на все, увы, нет времени, работать надо - и как бы вы меня не уговаривали, все же сделаю это на паскале, но если нужно будет - исправлю под плюсы): 1) чтобы проверить, является ли треугольник равносторонним, нужно узнать, равны ли все его стороны: if (a = b) and (b = c) then writeln('true') else writeln('false'); 2) у равнобедренного треугольника должны быть равны две стороны: if (a =b) or (b = c) or (a = c) then writeln('true') else writeln('false'); 3) для существования треугольника сумма любых его двух сторон должна быть больше третьей: if (a + b > c) and (a + c > b) and (b + c > a) then writeln('true') else writeln('false'); 4) тут всё просто, первая четверть это неотрицательные значения для осей абсцисс и ординат: if (a > = 0) and (b > = 0) then writeln('true') else writeln('false'); с последним разберешься сам, там тоже несложно. в единую программу, надеюсь, сможет восьмиклассник собрать части кода?

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

20 напишите программу, которая в последовательности натуральных чисел определяет минималь- ное чётное число. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется чётное число. количество чисел не превышает 1000 введённые числа не превышают 30 0 программа должна вывести одно число — минимальное чётное число. пример работы программы: входные данные выходные данные 8 4 3 20 6 6
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

elvini857
DodokhodzhaevVladimirovich
zmlavra
Хрулёва
molchanovaelena284
alex091177443
kosharikclub
Popova-Erikhovich
Salko17
Pokupatel
Марина
delo1005
mbudilina
GALINAMTO
baton197310