Информатика | 10 - 11 классы
Помогите срочно!
Написать программу сравнения пяти чисел(введенных на клавиатуре) и чтобы вывелось большее из них.
Пример : var a1, a2, a3, max : integer ;
begin write ('Введите три числа : ') ; readln (a1, a2, a3) ; if a1 > = a2 then max : = a1 else max : = a2 ; if a3 > max then max : = a3 ; writeln ('Максимальное из них : ', max) ;
end.
P. S только с 5 - ю переменными.
Объясните, пожалуйста, как будет работать программа, если в 8 строке будет i : = ivar a : array [1?
Объясните, пожалуйста, как будет работать программа, если в 8 строке будет i : = i
var a : array [1.
5] of integer ;
i, min, max, x : integer ;
begin
for i : = 1 to 5 do begin a[i] : = random(10) ; writeln(a[i]) ; end ;
max : = a[1] ;
min : = a[1] ;
for i : = i to 5 do begin
if a[i]> ; max then max : = a[i] ;
if a[i]< ; min then min : = a[i] ;
end ;
writeln('max = ', max) ;
writeln('min = ', min) ;
end.
Это правильно ?
Это правильно ?
Это информатика 9 класс.
Задача.
Среди 4 чисел найти максимум и минимум :
program zadacha ;
var
a, b, c, d, max, min : real ;
begin
writeln('vvedite kofficient a, b, c, d') ;
If a> ; b then max : = a else min : = b ;
If c> ; d then max : = c else min : = d ;
If a> ; c then max : = a else min : = c ;
end.
ПАСКАЛЬ Ошибка : " Нельзя преобразовать тип integer к array [1?
ПАСКАЛЬ Ошибка : " Нельзя преобразовать тип integer к array [1.
40] of integer" var mas : array[1.
40] of integer ; i, max, max1 : integer ; begin max : = 0 ; max1 : = 0 ; For i : = 1 to 40 do begin mas : = random(101) ; write(mas[i] : 4) ; If mas[i]> ; max then max : = mas[i] ; end ; For i : = 1 to 40 do If (mas[i]< ; > ; max) and (mas[i]> ; max1) then max1 : = mas[i] ; writeln ; writeln(max1) ; end.
Помогите пожалуйста ?
Помогите пожалуйста !
Срочно надо.
В заданной последовательности целых чисел определите сумму элементов кратных 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.
Помогите пожалуйста!
В массиве из 20 целых чисел найдите наибольший элемент среди отрицательных и поменяйте его местами с первым элементом?
В массиве из 20 целых чисел найдите наибольший элемент среди отрицательных и поменяйте его местами с первым элементом.
Вот начал делать, а потом не знаю как дальше :
const
k = 20 ;
var
a : array[1.
K] of integer ;
g, i, max : = integer ;
begin
for i : = 1 to n do begin
a[i] : = random(20) - 10 ;
write(a[i], ' ') ;
max : = a[i] ;
for i : = 1 to n do
if a[i]< ; 0 then max : = a[i] ;
writeln('max = ', max) ;
end ;
Дальше не знаю, там по - моему надо ввести переменную (в моём случае "g") и мне кажется там ошибка в поиске максимально среди отрицательных элементов.
Помогите пожалуйста.
Сказали что у меня не все пояснения к задаче, нужны пояснения к каждой строчке Program kursz5 ; uses crt ; / / Подключение модуля crt const n = 10 ; const m = 10 ; var / / Описание переменных i, j, ma?
Сказали что у меня не все пояснения к задаче, нужны пояснения к каждой строчке Program kursz5 ; uses crt ; / / Подключение модуля crt const n = 10 ; const m = 10 ; var / / Описание переменных i, j, max, min : integer ; a : array[1.
N, 1.
M] of integer ; / / Ввод массива begin randomize ; / / Подключение датчика случайных чисел for i : = 1 to n do / / Ввод чисел для переменных массива for j : = 1 to m do a[i, j] : = random(100) ; / / Ввод случайных чисел max : = a[1, 1] ; min : = a[1, 1] ; for i : = 1 to n do begin for j : = 1 to m do begin if a[i, j] > ; max then max : = a[i, j] ; / / Вывод max элемента НЕ ПРАВИЛЬНО if a[i, j] < ; min then min : = a[i, j] ; / / Вывод min элемента write(a[i, j] : 5) ; end ; writeln ; end ; writeln() ; writeln('max = ', max, ' min = ', min) ; / / Вывод max и min значений end.
Помогите ответить на вопросы по программе 1) В какой строке вызывается процедура?
Помогите ответить на вопросы по программе 1) В какой строке вызывается процедура?
Укажите номер строки 2) В какой строке вызывается функция?
Укажите номер строки 3) Укажите тип данных переменной St?
4) В какой строке описывается переменная St?
Укажите номер строки 5) Назначение переменной St?
Program ZZ1 ; var x, y, m, n : integer ; St : string ; function MaxNumber(a, b : integer) : integer ; var max : integer ; begin if a> ; b then max : = a else max : = b ; MaxNumber : = max ; end ; procedure MinNumber(c, d : integer ; var min : integer) ; begin if c end ; begin write('Введите свое имя') ; readln(St) ; write('Введите x, y ') ; readln(x, y) ; n : = MaxNumber(x, y) ; writeln('Максимум = ', n) ; MinNumber(x, y, m) ; writeln('Минимум = ', m) ; writeln('Данную программу запустил : ', St) ; end.
Нужно поменять местами макс?
Нужно поменять местами макс.
И мин.
Значения.
Что не так?
PROGRAM MATRICA ; USES CRT ; CONST N = 3 ; M = 4 ; A = - 20 ; B = 20 ; VAR I, J, MIN, MAX, T : INTEGER ; Y : ARRAY [1.
N, 1.
M] OF INTEGER ; BEGIN CLRSCR ; RANDOMIZE ; WRITELN('MATRICA Y') ; MIN : = 0 ; MAX : = 0 ; T : = 0 ; FOR I : = 1 TO N DO BEGIN FOR J : = 1 TO M DO BEGIN Y[I, J] : = TRUNC((B - A) * RANDOM + A) ; WRITE(Y[I, J] : 6) ; IF Y[I, J]MAX THEN MAX : = Y[I, J] ; END ; WRITELN ; END ; WRITELN('Минимальное значение = ', MIN) ; WRITELN('Максимальное значение = ', MAX) ; T : = MIN ; MIN : = MAX ; MAX : = T ; FOR I : = 1 TO N DO BEGIN FOR J : = 1 TO M DO BEGIN WRITE(Y[I, J] : 6) ; END ; WRITELN ; END ; READKEY ; END.
Найти максимальный элемент этого массива const n = 20 ; var a : array[1?
Найти максимальный элемент этого массива const n = 20 ; var a : array[1.
N] of integer ; i, max : integer ; begin randomize ; for i : = 1 to n do a[i] : = random(90) + 10 ; for i : = 1 to n do write(a[i] : 4) ; writeln ; for i : = to n do if a[i] then max : = ; writeln('max : ', ) ; end.
Выдает ошибку Операция > ; не может быть применена к типам boolean и integer Program qq ; var a, b, c, max, min, med : integer ; begin writeln ('введите три числа') ; read (a, b, c) ; if c> ; b>?
Выдает ошибку Операция > ; не может быть применена к типам boolean и integer Program qq ; var a, b, c, max, min, med : integer ; begin writeln ('введите три числа') ; read (a, b, c) ; if c> ; b> ; a then begin max : = c ; med : = b ; min : = a ; End ; if b> ; a> ; c then begin max : = b ; med : = a ; min : = c ; End ; if a> ; c> ; b then begin max : = a ; med : = c ; min : = b ; End ; writeln ('наибольшее число', max) ; writeln ('среднее число', med) ; writeln ('наименьшее число', min) ; End.
Вы находитесь на странице вопроса Помогите срочно? из категории Информатика. Уровень сложности вопроса рассчитан на учащихся 10 - 11 классов. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.
Program RLN ;
var a1, a2, a3, a4, a5, max : integer ;
begin
write ('Введите пять чисел : ') ;
readln (a1, a2, a3, a4, a5) ;
if a1 > = a2 then
max : = a1
else
max : = a2 ;
if a3 > max then
max : = a3 ;
writeln ('Максимальное из них : ', max) ;
end.