Написать программу в паскале которая будет выводить два наибольших четных элемента массива [1..10]
10-11 класс
|
var i,max,max1:integer;
a:array[1..10] of integer;
begin cls;
for i:=1 to 10 do a[i]:=i;
max:=a[1];
max1:=a[2];
for i:=1 to 10 do
if ((i mod 2=0) and ( max < a[i] )) then
begin
max1:=a[i]-2;
max:=a[i];
end;
writeln(max,' ',max1);
readln;
end.
ну примерно так
Другие вопросы из категории
должно находится на табло,чтобы с его помощью можно было передать 400 разных сигналов?
QBasic или на Visual Basic)?
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
http://primat.org/index/0-128 вот сайт что бы написать программу.
случайным образом
З.Ы. если что среда разработки - Qt
Указания: Заполните одномерный числовой массив А[15] случайными целыми числами в интервале [18;15].Выведите значения элементов массива сначала в столбик,а затем в строку,причем на каждый элемент отведите 4 позиции.
Задача: Заменить элементы массива,которые кратны пяти,на значение максимального элемента массива.
1) С клавиатуры вводится 2 числа - целое и вещественное. Программа выводит их сумму на экран.
2) Написать процедуру, которая умножает число типа int на число типа float на число типа double и выводит результат на экран
3) Написать процедуру, которая будет выводить любой текст, являющийся ее аргументом
4) С клавиатуры вводится 5 символов поочередно, программа выводит на экран акроним к слову которая образует эти 5 символов