с клавиатуры вводятся 4 числа . вывести на экран наибольшее из них и каким по счёту оно было введено . в программне паскаль .
5-9 класс
|
program z1; uses crt; var M: array [1..4] of integer; i,max: integer; begin clrscr; for i to 4 do readln (M[i]); max:= M[1]; for i:= 2 to 4 do if (max < m[i]) then max:= m[i]; readln( max, i); readkey; end. Вроде таки правильно.
Другие вопросы из категории
элементов массива Р сформировать массив М того же размера по правилу: если номер четный , то Рi=i*Mi, если нечетный, то Рi=-Mi
Читайте также
натуральных числа вывести на экран то из них у которого цыфра меньше. пожалуйста решите 2 задачи
Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.
Вводятся три числа. Вывести на экран число с минимальной суммой цифр.
Помогите пожалуйста в Паскале
«итог. сумма».
Задание 2.
Переменной Х присвоить значение 7. Переменной Р присвоить значение, равное квадрату Х. Вывести значения переменных Х и Р (через запятую). Значение Х увеличить на Х. Переменной Р присвоить значение, равное корню квадратному из Х. Вывести значения переменных Х и Р (через запятую).DIKTANT 2
Задание 1.
Значение переменной Х присвоить в программе. При неотрицательном значении Х переменной У присвоить значение, равное корню квадратному из Х. В противном случае, переменной У присвоить значение, равное квадрату Х. Вывести на экран значение Х и значение У.Задание 2.
Двум произвольным переменным присвоить произвольным образом соответственно 2 числа. Двум другим переменным присвоить значения, равные тангенсам двух предыдущих переменных. Вывести на экран значения всех переменных, а так же сумму значений двух последних переменных. помогите сделать пож