1. Информатика
  2. Дан вещественный массив из

Дан вещественный массив из 40 элементов. элементы массива могут принимать произвольные значения. опишите на языке или на одном из языков программирования алгоритм, который находит и выводит минимальный положительный элемент массива или сообщение, что такого элемента нет. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. const n = 40; var a: array [1..n] of real; i, j: integer; min: real; begin for i : = 1 to n do readln(a[i]); end.

катя4802 катя4802    1   26.08.2019 01:00    0

Ответы
Sofka11123 Sofka11123  05.10.2020 19:56
Const
  N = 40;
var
  a: array [1..N] of real;
  i, j: integer;
  min: real;
begin
for i := 1 to N do
  readln(a[i]);
for i:=1 to N do
  if (a[i]>0) then
    begin
    j:=i;
    min:=a[i];//запоминаем последний положительный и его номер
    end;
for i:=j downto 1 do
  if (a[i]>0) and (a[i]<min) then min:=a[i];
if min=0 then writeln('таких нет') else writeln('min=',min);  
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ovenovsp00yl2 ovenovsp00yl2  22.09.2019 14:42
Напишите программы на языке pascal (оператор for): 1) подсчитывает сумму натуральных чисел от 1 до n2) считает [tex]x^{n}[/tex] для вещественного x и натурального n3) выводит на экран:...
Настя34565688 Настя34565688  27.02.2019 22:30
Составьте программу позволяющую вводить с клавиатуры 6 целых чисел и определяющую наибольшее из них. !...
milka292 milka292  03.11.2020 10:57
Напишите программу, которая ищет среди целых чисел, принадлежащих числовому отрезку [100812; 100923], числа, имеющие ровно 6 различных делителей. Выведите эти делители для каждого...
nadyamoroz03 nadyamoroz03  25.10.2020 18:16
По данным таблицы постройте линейную диаграмму на языке PaskalABC. ​...
Андрюша1789 Андрюша1789  25.10.2020 18:16
Даны два числа Мик. Требуется изменить число N так, чтобы в его двоичномпредставлении к младших разрядов былиравны 0, а все остальные разрядыостались неизменными.В задаче запрещено...
smoboine smoboine  25.10.2020 18:17
Мистеру Фоксу поручено сделать 100 копий уникального документа. В его распоряжении есть три копировальных аппарата разной производительности. Первый выдаёт копии с интервалом 6 сек.,...
Pazitifon3000 Pazitifon3000  17.04.2019 04:20
Приведите аргументы за и против мнения историка Л. В. Милова о последствиях «ленинградского дела»: «.Проигрыш «ленинградцев» означал поражение направления...
pashainshakov pashainshakov  17.04.2019 04:20
Какие изменения произошли в системе образования в СССР?...
situan4 situan4  17.04.2019 04:20
Раскройте взаимосвязь между изменениями в высшем кадровом составе и политическими задачами, стоящими перед страной...
maxdemplay maxdemplay  17.04.2019 04:20
В чём заключались особенности развитии науки в послевоенный период?...

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