profile
Опубликовано 4 года назад по предмету Информатика от nicvodol

В массиве хранится информации о стоимости каждой из 60 книг. Определить количество самых дешёвых книг.

  1. Ответ
    Ответ дан Gluk1

    uses crt;
    var i,min,s:integer;
    a:array[1..60] of integer;
    begin
    s:=0;
    for i:=1 to 60 do a[i]:=random(35)+1;
    min:=a[1];

    for i:=1 to 60 do if min > a[i] then min:=a[i];
    for i:=1 to 60 do if a[i] = min then inc(s);

    writeln(s,' books for price = ',min,' ru.');
    end.

Другие вопросы
Lenusik
Математика - 2 недели назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

321
Математика - 3 недели назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

bkmz
Математика - 3 недели назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

lesiunia
Физика - 3 недели назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Kiril
Физика - 3 недели назад

Сколько часов и минут в -1,3ч и -2,75ч

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.