Составить алгоритм и соответствующую ему программу для определения максимального элемента в таблице А[1..N]. Определить величину этого элемента и его но
10-11 класс
|
мер в таблице.Произвести отладку и проверить работу программы для произвольно заданных элементов таблицы. ПОЖАЛУЙСТА ПОМОГИТЕ ХОТЬ ПРОГРАММУ СОСТАВИТЬ!!! СРОЧНО)
program P1;
uses
crt;
type
TArray = array[1..1] of integer;
var
N,max : integer;
i,k : integer;
A : ^TArray;
begin
{$R-}
clrscr;
write('N = ');
read(N);
GetMem(A,N*sizeof(integer));
k := 1;
for i := 1 to N do
begin
write('Element ',i,' = ');
read(A^[i]);
if i = 1 then
max := A^[i];
if A^[i] > max then
begin
max := A^[i];
k := i;
end;
end;
writeln('');
writeln('Max = ',max);
writeln('Nomer: ',k);
readln;
readln;
freemem(A,N*sizeof(integer));
end.
Другие вопросы из категории
цельсия.k=c+273,где k-градусы кельвина,с-градусы цельсия
Читайте также
2. Составить программу для упорядоченное двух элементов по убыванию.
элементов настоящей таблице х [1 .. 10] на 0.
3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат.
4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.
половине возраста мужчины+7, возраст мужчины определяется соответственно как удвоенный возраст девушки-14. В начале выполнения программы на экране должен появиться вопрос МУЖЧИНА или ЖЕНЩИНА? ВВЕДИТЕ М, если Вы мужчина, или Ж, если женщина и свой возраст. В зависимости от ответа выводятся соответствующие рекомендации.
убирать урожай.Составить программу отвечающую на вопрос:успеют ли арендаторы убрать урожай до холодов , не привлекая сезоного рабочего мышку