Регистрация
ghostridermen
14.10.2021 00:57
Информатика
Есть ответ 👍

Вданной последовательности целых чисел найти минимальное значение среди неотрицательных элементов и все номера членов последовательности, равных ему на паскаль написать

134
296
Посмотреть ответы 2

Ответы на вопрос:

rozettak
rozettak
4,4(93 оценок)
Var a: array [1..1000] of integer; i, n, min, amount: integer; begin       read(n);   {сначала считываем кол-во элементов}       for i : = 1 to n do           read(a[i]);       min : = 10000;       amount : = 0;       for i : =1 to n do            if (a[i] < min) and (a[i] > = 0) then               min : = a[i];       for i : = 1 to n do           if a[i] = min then             amount : = amount + 1;       writeln('min: ', min, ', amount: ', amount); end.
oladushek2002oy6bqn
oladushek2002oy6bqn
4,6(38 оценок)

рисовать мне муторно! вот сделал программку,которая по твоему уравнению находит координаты точек!

код:

program name;

var

x,y,z: integer;

i,s: integer;

begin

write('введите кол-во точек: ');

readln(z);

for i: =1 to z do

  begin

    s: =s+1;

    write('введите x',s,': ');

    readln(z);

    y: =(sqr(*z-4;

    writeln('координаты ',s,' точки: (',z,',',y,')');

  end;

end.

Популярно: Информатика