Информатика | 10 - 11 классы
Program pr ; var mas : array[1.
10] of integer ; i, min, ind : integer ; Begin randomize ; For i : = 1 to 10 do Begin mas[i] : = Random(100) ; write(mas[i], ' ') ; End ; writeln() ; min : = mas[1] ; For i : = 1 to 10 do Begin If (min> ; mas[i]) then End ; write('Минимальный элемент массива : ', min) ; End.
Что не верно?
Вот задача : Дан одномерный массив А длиной N.
Определить, на какой позиции нахо - дится минимальный элемент массива.
Объясните, пожалуйста, как будет работать программа, если в 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.
Program1?
Program1.
Pas(17) : Нельзя изменять значение переменной цикла внутри этого цикла
Помогите исправить ошибку .
Program Lin_10 ;
uses crt ;
type mas = array [1.
9, 1.
9] of integer ;
var D, b : mas ;
i, j, t, min : integer ;
Begin
clrscr ;
Randomize ;
for i : = 1 to 9 do begin
for j : = 1 to 9 do begin
D[i, j] : = random(30) - 60 ; Write(D[i, j] : 4) ; End ;
Writeln ; Writeln(' Задача 10_1 ') ;
for i : = 1 to 9 do
for j : = 1 to 9 do begin
min : = D[i, j] ;
End ;
If min> ; D[i, j] then min : = [i, j] ; End ;
Writeln ; Writeln('Min = ', min) ; Writeln(' Задача 10_2 ') ; for i : = 1 to 9 do begin for j : = 1 to 9 do begin If (D[i, j] mod 2) = 0 then D[i, j] : = 0 ;
Write(D[i, j] : 4) ;
End ; Writeln ; Writeln(' Задача 10_3 ') ; t : = 1 ; for j : = 1 to 9 do begin i : = j ;
B[t] : = D[i, j] ; t : = t + 1 ;
u : = t ; End ;
For t : = 1 to u - 5 do begin
Write (D[t] : 4) ;
End ;
Writeln ; Writeln(' Задача 10_4 ') ;
Writeln(' Задача 10_5 ') ;
sum : = 0 ;
for i : = 1 to 9 do For j : = 1 to 9 do begin
If D[i, j] mod 3 = 0 then Sum : = sum + D[i, j] ;
End ;
Write('sum = ', sum) ;
Readln ;
End ;
Заполните пропуски в программе ввода и вывода 10 целочисленных элементов массива, заданных случайным образом на промежутке [20 ; 40] : Program gh ; var A : array[ 1?
Заполните пропуски в программе ввода и вывода 10 целочисленных элементов массива, заданных случайным образом на промежутке [20 ; 40] : Program gh ; var A : array[ 1.
___] of integer ; i : integer ; begin for i : = 1 to __ do begin A[i] : = random(___) + ____ ; write(____) ; end ; 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.
Задача по двумерному массиву?
Задача по двумерному массиву.
Создать новый одномерный массив из элементов, стоящих под главной диагональю.
Вот шапочка массива : uses crt ; type mas = array [1.
8, 1.
8] of integer ; var M : mas ; i, j : integer ; begin randomize ; for i : = 1 to 8 do begin for j : = 1 to 8 do begin M[i, j] : = random(190) - 95 ; write(M[i, j] : 4) ; end ; writeln ; end ;
Сказали что у меня не все пояснения к задаче, нужны пояснения к каждой строчке 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 fgf ;
var mas : array[1.
100] of real ;
max, min : real ;
i, n, c, b : shortint ;
p : real ;
f1, g : text ;
begin ;
assign (f1, 'input.
Txt') ;
reset (f1) ;
readln (f1, n) ; for i : = 1 to N do read (mas[i]) ;
max : = mas[i] ;
for i : = 2 to N do begin
if mas[i]> ; max then begin
max : = mas[i] ;
c : = i ;
end ;
end ;
min : = mas[1] ;
for i : = 2 to N do begin
if mas[i]< ; min then begin
max : = mas[i] ;
b : = i ;
end ;
end ;
close(f1) ;
assign (g, 'output.
Txt') ;
rewrite (g) ;
p : = 1 ;
if b< ; c then I : = b + 1 and c - 1 else for I : = c + 1 to b - 1 do p : = p * mas[i] ; if (n< ; 3) or (b + 1 = c) or (c + 1 = b) then writeln(g, '0.
00') else write(p : 3 : 3) ; close (g) ;
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.
Помогите плизvar mas : array [1 ?
Помогите плиз
var mas : array [1 .
10] of integer ; i : integer ;
function f(n : integer) : integer ;
begin f : = n xor 5 ;
end ;
begin for i : = 1 to 10 do read(mas[i]) ; for i : = 1 to 10 do mas[i] : = f(mas[i]) ;
end.
Определите, какими значениями был заполнен массив mas, если в результате выполнения программы в массиве mas были получены следующие значения {13 0 7 6 1 4 2 3 12 5}.
В ответе запишите через пробел элементы массива mas с первого по десятый.
Задание :Ввести массив в данную программу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.
На этой странице сайта вы найдете ответы на вопрос Program pr ; var mas : array[1?, относящийся к категории Информатика. Сложность вопроса соответствует базовым знаниям учеников 10 - 11 классов. Для получения дополнительной информации найдите другие вопросы, относящимися к данной тематике, с помощью поисковой системы. Или сформулируйте новый вопрос: нажмите кнопку вверху страницы, и задайте нужный запрос с помощью ключевых слов, отвечающих вашим критериям. Общайтесь с посетителями страницы, обсуждайте тему. Возможно, их ответы помогут найти нужную информацию.
Program pr ;
var mas : array[1.
10] of integer ; i, ind : integer ;
begin randomize ; for i : = 1 to 10 do begin mas[i] : = Random(100) ; write(mas[i], ' ') end ; writeln() ; ind : = 1 ; for i : = 2 to 10 do if (mas[ind] > ; mas[i]) then ind : = i ; write('Номер минимального элемента массива : ', ind) ;
end.
Тестовое решение :
16 79 63 7 7 61 2 92 30 54
Номер минимального элемента массива : 7.