В массиве хранится информация о стоимости товаров. Составьте программу, которая определяет стоимость самого дешевого(дорогого) товара и его индекс
5-9 класс
|
program pr1;uses crt;var a:array[1..20] of integer; i,j,max,ind :integer;begin max:=a[ 1 ]; for i:=1 to 20 do begin writeln('Введите цену(макс 20 товаров)'); readln(a[i]) end; for i :=2 to 10 do begin if a [ i ] > max then begin max:=a [ i ] ind:=i; end end; writeln('максимальная цена тавара ',a[i],'р. И ег оиндекс в массиве=',ind)end.
масивв то какой? числа рандомные можно?
Другие вопросы из категории
врача и оформить ее в виде таблицы.
соединение за 36 секунд.
В ответе указать число в Кбайтах.
Читайте также
дешевого(дорогого) товара и его индекс.
вот программа но в ней где-то ошибка
program xxx;
var a:array [1..10] of integer;
i, max, min:integer;
begin
for i:=1 to 10 do read(a[i]);
min:=1;
for i:=2 to 10 do
if a[i]<min then min:=a[i];
writeln('a[',i,']=',a[i]);
max:=a[i];
for i:=2 to 10 do
if a[i]>max then max:=a[i];
writeln('a[',i,']=',a[i]);
end.
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
2. Составить программу, которая позволяет заменить все гласные символом "*"
2-ая Составить программу , которая в двумерном массиве случайных чисел элементы всех четных строк делает нулевыми
язык паскаль
элементов с нечётными индексами
2)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве