Информатика | 10 - 11 классы
Выдает ошибку Операция > ; не может быть применена к типам 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.
Объясните, пожалуйста, как будет работать программа, если в 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.
Помогите плиииз))) Надо написать блок - схему на эту программу?
Помогите плиииз))) Надо написать блок - схему на эту программу.
Program a2 ; var a, b, c, min : real ; begin Writeln (‘Введите три числа’) ; readln (а, b, с) ; min : = а ; If b< ; min then min : = b ; if c< ; min then min : = c ; 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.
Дан двумерный массив, найти максимальное и минимальное значение ?
Дан двумерный массив, найти максимальное и минимальное значение .
Я новенький в этом деле, вот попытался сам, посмотрите и обьясните что не правильно , пожалуйста .
Program zaza ;
var
i, j, n, m, max, min : integer ;
a : array[1.
10, 1.
10] of integer ;
begin
writeln ('vvedite chislo n') ;
writeln ('vvedite chislo m') ;
for i : = 1 to n do
for j : = 1 to m do
begin
writeln ('vvedite elementu massiva', i, j) ;
end ;
for i : = 1 to n do
for j : = 1 to m do
begin
if a[i, j] > ; max then
max : = a[i, j] ;
if a[i, j] < ; min then
min : = a[i, j] ;
end ;
writeln('max', 'min')
end.
Program naim4 ;var a, b, c, d, min : real ; begin ;writeln('введите 4 числа') ;readln ;min : = a ;if b < ; min then min : = b ;if c < ; min then min : = c ;if d < ; min then min : = d ;writeln('?
Program naim4 ;
var a, b, c, d, min : real ; begin ;
writeln('введите 4 числа') ;
readln ;
min : = a ;
if b < ; min then min : = b ;
if c < ; min then min : = c ;
if d < ; min then min : = d ;
writeln('минимальное ', min) ;
readln ;
end.
Нужно найти минимальное число из 4 данных.
Что не так?
Сказали что у меня не все пояснения к задаче, нужны пояснения к каждой строчке 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.
Нужно поменять местами макс?
Нужно поменять местами макс.
И мин.
Значения.
Что не так?
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.
Program TELESHOP ; var x : real ; begin writeln ('?
Program TELESHOP ; var x : real ; begin writeln ('.
') ; write ('.
') ; write ('.
') ; readln (x) ; if x< ; = 1 then begin if x = 1 then begin writeln ('.
') ; writeln ('.
') ; end else begin writeln ('.
') ; end ; * else begin writeln ('.
') ; end end.
* - место ошибки.
"встречено 'else', а ожидалось оператор" Вопрос : в чем ошибка?
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 ?
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 then begin writeln ('утро') ; readln (d) ; if a = 12 then begin writeln ('день') ; end ; if a = 16 then begin writeln ('вечер') ; / / / if a = 21 then begin writeln ('ночь') ; / / / end ; end ;
Задание :Ввести массив в данную программуvarn, i, a, min : integer ;beginreadln(n) ;min : = 30001 ;for i : = 1 to n dobeginreadln(a) ;if (a mod 10 = 4) and (a < min) thenmin : = a ;end ;writeln(min)en?
Задание :
Ввести массив в данную программу
var
n, i, a, min : integer ;
begin
readln(n) ;
min : = 30001 ;
for i : = 1 to n do
begin
readln(a) ;
if (a mod 10 = 4) and (a < min) then
min : = a ;
end ;
writeln(min)
end.
На этой странице находится вопрос Выдает ошибку Операция > ; не может быть применена к типам boolean и integer Program qq ; var a, b, c, max, min, med : integer ; begin writeln ('введите три числа') ; read (a, b, c) ; if c> ; b>?. Здесь же – ответы на него, и похожие вопросы в категории Информатика, которые можно найти с помощью простой в использовании поисковой системы. Уровень сложности вопроса соответствует уровню подготовки учащихся 10 - 11 классов. В комментариях, оставленных ниже, ознакомьтесь с вариантами ответов посетителей страницы. С ними можно обсудить тему вопроса в режиме on-line. Если ни один из предложенных ответов не устраивает, сформулируйте новый вопрос в поисковой строке, расположенной вверху, и нажмите кнопку.
Ну так правильно пишет , нельзя писатьif b> ; a> ; c
then begin , пишется правильно так if (c> ; b) and (b> ; a)then begin , вообщем вот держи ;
Program qq ; var a, b, c, max, min, med : longint ; beginwriteln ('введите три числа') ; read (a, b, c) ; if (c> ; b) and (b> ; a)then beginmax : = c ; med : = b ; min : = a ; End ; if (b> ; a) and (a> ; c)then beginmax : = b ; med : = a ; min : = c ; End ; if (a> ; c) and (c> ; b)then beginmax : = a ; med : = c ; min : = b ; End ; writeln ('наибольшее число', max) ; writeln ('среднее число', med) ; writeln ('наименьшее число', min) ; End.