Информатика | 10 - 11 классы
Задача по двумерному массиву.
Создать новый одномерный массив из элементов, стоящих под главной диагональю.
Вот шапочка массива : 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 ;
Где ошибка?
Где ошибка?
Const n = 10 ; type TMas = array[1.
N] of integer ; var mas1 : TMas ; procedure ImputMas1(var masTMas : integer) ; var i : integer ; begin for i : = 1 to 10 do begin mas1[i] : = random(n) ; Write(mas1[i] : 3) ; end ; 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.
Помогите найти ошибку в программе?
Помогите найти ошибку в программе.
Умножение двумерного массива.
Pas(29) : Нельзя преобразовать тип integer к array [1.
100] of array [1.
100] of integer.
Вот сама программа : умножение матриц в обратном порядке, т.
Е первый элемент на последний, второй на предпоследний и.
Т. д.
Var x : integer ; a1 : array[1.
100, 1.
100] of integer ; a2 : array[1.
100, 1.
100] of integer ; a3 : array[1.
100, 1.
100] of integer ; i, j, m, n : integer ; begin writeln('Введите размер матрицы') ; readln(m, n) ; for i : = 1 to m do begin for j : = 1 to n do end ; begin writeln('Введите элементы первой матрицы') ; for i : = 1 to m do begin for j : = 1 to n do readln(a1[i, j]) ; end ; end ; begin writeln('Введите элементы второй матрицы') ; for i : = 1 to m do begin for j : = 1 to n do readln(a2[i, j]) ; end ; end ; begin a3 : = a1[i, j] * a2[x + 1 - i, x + 1 - j] ; for i : = 1 to m do begin for j : = 1 to n do readln(a3[i, j]) ; end ; writeln ; end ; readln ; 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.
Program pr ; var mas : array[1?
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.
Определить, на какой позиции нахо - дится минимальный элемент массива.
Помогите исправить программу?
Помогите исправить программу.
Она должна вычислять среднее арифметическое всех чисел в массиве меньших 50.
Вот программа :
Program Zadacha ;
Uses crt ;
var a : array[1.
1000] of integer ;
c, i, n, s : integer ;
s1 : real ;
begin ;
clrscr ;
writeln("Введите размерность массива) ;
readln(n) ;
writeln('Введите массив') ;
for i : = 1 to n do
begin a[i] : = random(100) ;
if a[i]< ; 50 then begin inc(c) ; s : = s + a[i] ; end ; s : = s + a[i] ; s1 : = s / N ;
writeln('Массив A : ') ;
for i : = 1 to N do write(a[i] : 4) ;
writeln ;
writeln('Среднее арифметическое равно = ', s1) ;
end ;
end.
Много баллов(78) за блок - схему?
Много баллов(78) за блок - схему.
Завтра курсовую сдавать : ( программа на паскале uses crt ; type mas = array [1.
100] of integer ; var b : mas ; p, i, n : integer ; procedure vvod (x : mas ; k : integer) ; var i, p : integer ; begin for i : = 1 to n do begin write('Vvedite chislo : ') ; readln(x[i]) ; end ; for i : = 1 to n do write(x[i] : 3) ; for i : = n downto 1 do if x[i]< ; 0 then p : = i ; writeln ; write(' = ', x[p - 1]) ; writeln ; readln ; end ; begin clrscr ; write('Vvedite kol - vo chisel : ') ; readln((n)) ; vvod (b, n) ; readln ; end.
USES Crt ; const N = 10 ; VAR A : array[1?
USES Crt ; const N = 10 ; VAR A : array[1.
N] of integer ; k : integer ; Function FUN : integer ; Var i, M : integer ; Begin writeln('Введите число M = ') ; readln(M) ; k : = 0 ; for i : = 1 to N do if A[i] FUN : = k ; End ; Procedure SOSTMAS ; Var i : integer ; Begin for i : = 1 to N do begin A[i] : = Random(199) - 100 ; write(A[i] : 5) ; end ; Writeln ; end ; BEGIN SOSTMAS ; Writeln(FUN) ; что то неправильно говорят массив.
Здравствуйте, помогите пожалуйста найти ошибку 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 ;
Помогите плиз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 с первого по десятый.
На странице вопроса Задача по двумерному массиву? из категории Информатика вы найдете ответ для уровня учащихся 10 - 11 классов. Если полученный ответ не устраивает и нужно расшить круг поиска, используйте удобную поисковую систему сайта. Можно также ознакомиться с похожими вопросами и ответами других пользователей в этой же категории или создать новый вопрос. Возможно, вам будет полезной информация, оставленная пользователями в комментариях, где можно обсудить тему с помощью обратной связи.
Uses crt ;
type mas = array [1.
8, 1.
8] of integer ;
var M : mas ; i, j, k : integer ;
a : array[1.
28]of 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 ;
for i : = 1 to 8 do for j : = 1 to 8 do if i> ; j then begin k : = k + 1 ; a[k] : = m[i, j] ; end ;
writeln ; for i : = 1 to 28 do write(a[i] : 4) ;
end.