Предмет: Информатика,
автор: w4oob
Помогите, пж.
Выполнить задание в Паскале. Дан массив из 10 чисел. Найти наибольшее значение среди элементов массива и вывести его на экран. Входные данные для решения задания задать самостоятельно. Нужен код.
Ответы
Автор ответа:
2
Ответ:
var i,max:integer; a:Array[1..10] of integer = (5,4,9,8,4,8,2,3,8,7);
begin
max := a[1];
for i:=2 to 10 do begin
if max < a[i] then max := a[i];
end;
write('Максимальный элемент массива равен ', max);
end.
pinguinbird:
может быть вам что-то непонятно, я постараюсь объяснить
Вообще задача довольно тривиальная. Буду рад помочь разобраться
мне учитель 3 поставила. даже не объяснив.
очень интересно...чем же она руководствовалась...
может быть вот так она хотела, чтобы задачка решена была (по сути то же самое, просто немного смысл другой):
var i,j,max:integer; a:Array[1..10] of integer = (5,4,9,8,4,8,2,3,8,7);
begin
max := a[1];
j := 1;
for i:=2 to 10 do begin
if max < a[i] then begin
max := a[i];
j := i;
end;
end;
write('Максимальный элемент массива равен ', a[j]);
end.
begin
max := a[1];
j := 1;
for i:=2 to 10 do begin
if max < a[i] then begin
max := a[i];
j := i;
end;
end;
write('Максимальный элемент массива равен ', a[j]);
end.
здесь мы не значение запоминаем, а индекс максимального элемента, и потом его выводим...не знаю, может попробовать ещё раз ей показать....
или хотя бы узнать, в чём ошибка, мне было бы очень интересно
или вот ещё проще:
var i,j:integer; a:Array[1..10] of integer = (5,4,9,8,4,8,2,3,8,7);
begin
j := 1;
for i:=2 to 10 do begin
if a[j] < a[i] then begin
j := i;
end;
end;
write('Максимальный элемент массива равен ', a[j]);
end.
var i,j:integer; a:Array[1..10] of integer = (5,4,9,8,4,8,2,3,8,7);
begin
j := 1;
for i:=2 to 10 do begin
if a[j] < a[i] then begin
j := i;
end;
end;
write('Максимальный элемент массива равен ', a[j]);
end.
Или даже ещё проще:
var i,j:integer; a:Array[1..10] of integer = (5,4,9,8,4,8,2,3,8,7);
begin
j := 1;
for i:=2 to 10 do if a[j] < a[i] then j := i;
write('Максимальный элемент массива равен ', a[j]);
end.
var i,j:integer; a:Array[1..10] of integer = (5,4,9,8,4,8,2,3,8,7);
begin
j := 1;
for i:=2 to 10 do if a[j] < a[i] then j := i;
write('Максимальный элемент массива равен ', a[j]);
end.
Похожие вопросы
Предмет: Русский язык,
автор: Арина3210
Предмет: Русский язык,
автор: natalotka2010
Предмет: Английский язык,
автор: Аноним
Предмет: Математика,
автор: waleralupanov0
Предмет: Математика,
автор: shashkov02