Найти наибольший элемент из промежутка (12;25]. Там программу составить надо.
5-9 класс
|
если на паскале, то вот:
var x: integer;
begin
readln(x);
if x:=25 then write('наибольший')
else writeln ('не наибольший');
readln;
end.
Другие вопросы из категории
числа. Определить, является ли среднее
арифметическое этих чисел целым числом.
решить задачу в паскале.
ученика необходимо выставить соответствующую отметку за работу. При выставлении отметки учитель пользуется следующими значениями – при отсутствии ошибок оценка 5, при одной ошибке - 4, при 2 ошибках – 3, при 3 и более ошибках – 2.
Читайте также
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!
Заранее благодарю
его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива
7) Определить количество максимальных элементов массива
P.S Ребят, все в паскале...заранее спасибо=*