Uses crt; var a:array[1..10]of integer; b:array[1..10]of integer; max,i,c,k:integer; beginfor i:=1 to 10 do a[i]:=random(20)-10; for i:=1 to 10 do if abs(a[i])>abs(max) then begin max:=a[i]; c:=i; end; for i:=1 to 10 do if (a[i]=max)and(i<>c) then begin b[i]:=i; k:=k+1; end; writeln('максимальный элемент по модулю=(',max,') номер этого элемента=(',c,')'); write('номера таких же элементов: '); for i:=1 to 10 do if b[i]>0 thenwrite(b[i],' '); writeln('их кол-во:(',k,')'); writeln; for i:=1 to 10 do write(a[i],' ') end.
program rev;
var
weight, price, revenue: integer;
begin
write('Введите количество урожая, которое собрал фермер(кг): ');
readln(weight);
write('Введите цену за 1 кг картофеля: ');
readln(price);
revenue := weight * price;
write('Выручка составила: ', revenue);
end.
Объяснение:
program rev; // Название программы
var
weight, price, revenue: integer; // Создание целочисленных переменных:
weight - вес урожая, который собрал фермер;price - цена картофеля за 1 килограмм;revenue - выручка с продажи картофеля.begin // Начало программы
write('Введите количество урожая, которое собрал фермер(кг): '); // Вывод сообщения в консоль
readln(weight); // Считываем с клавиатуры вес урожая
write('Введите цену за 1 кг картофеля: '); // Вывод сообщения в консоль
readln(price); // Считываем с клавиатуры цену картофеля за 1 килограмм
revenue := weight * price; // Рассчитываем выручку с продажи картофеля по формуле: выручка = вес * цена за 1 кг
write('Выручка составила: ', revenue); // Вывод сообщения в консоль и значение переменной revenue (выручка)
end. // Конец программы