Информатика | 10 - 11 классы
Помогите исправить программу.
Она должна вычислять среднее арифметическое всех чисел в массиве меньших 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.
Заполните пропуски в программе ввода и вывода 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.
Задача по двумерному массиву?
Задача по двумерному массиву.
Создать новый одномерный массив из элементов, стоящих под главной диагональю.
Вот шапочка массива : 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 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.
Определить, на какой позиции нахо - дится минимальный элемент массива.
Исправить ошибку Помогите исправить ошибку в программе Вот задание : Разработать программу поиска и печати всех чисел - близнецов, принадлежащих заданному диапазону [N, M ]?
Исправить ошибку Помогите исправить ошибку в программе Вот задание : Разработать программу поиска и печати всех чисел - близнецов, принадлежащих заданному диапазону [N, M ].
Вот программа : program yyy ; function prost(var x : integer) : boolean ; var k, i : integer ; t : boolean ; begin t : = true ; k : = 0 ; for i : = 1 to x do begin if x mod i = 0 then k : = k + 1 ; end ; if k = 2 then t : = true else t : = false ; prost : = t end ; var n, m, i : integer ; begin writeln('1') ; readln(n) ; writeln('2') ; readln(m) ; for i : = n to m - 1 do begin if prost(i) and prost(i + 2) then writeln(i , (i + 2)) ; end ; end.
Задан двухмерный массив?
Задан двухмерный массив.
Расположить все элементы матрицы в строку в порядке возрастания : ( в чем ошибка?
Программа не идет) : program niv ; const n = 2 ; m = 2 ; var i, j, d : integer ; c : real ; a : array[1.
M, 1.
N] of real ; begin for i : = 1 to n do ; begin a[i, j] : = random (10) - 5 ; a[i, j] : = random (10) - 5 ; writeln(a[i, j]) ; end ; for i : = 1 to m do begin for j : = 1 to n - 1 do begin for d : = 1 to n - j do begin if a[i, d]> ; a[i, d + 1]then begin c : = a[i, d] ; a[i, d] : = a[i, d + 1] ; a[i, d + 1] : = c ; end ; end ; end ; / / / / / end ; writeln('сортировка') ; for i : = 1 to m do begin for j : = 1 to n do begin writeln(a[i, j]) ; writeln(a[2, j]) ; end ; end ; end.
Срочно требуется помощь?
Срочно требуется помощь!
Нужно перевести программу из Pascal в VBA / Program num2 ; Uses crt ; Var a : array [1.
100] of integer ; i, k, n, s : integer ; Begin clrscr ; s : = 0 ; write('K = ') ; readln(k) ; write('N = ') ; readln(n) ; for i : = 1 to n do readln(a[i]) ; for i : = 1 to n do if (a[i] MOD k) = 0 then s : = s + a[i] ; writeln('S = ', s) ; End.
Program num1 ; Uses crt ; Var i, E : integer ; Begin clrscr ; i : = 0 ; write('E = ') ; readln(E) ; while i begin i : = i + sqrt(2) ; end ; writeln('I = ', i) ; End.
Program num3 ; Uses crt ; Var A, T : array [1.
100, 1.
100] of integer ; i, j, x : integer ; Begin clrscr ; for i : = 1 to 100 do for j : = 1 to 100 do A[i, j] : = random(10) ; for i : = 1 to 100 do for j : = i + 1 to 100 do T[i, j] : = A[i, j] ; for i : = 1 to 100 do for j : = 1 to 100 do begin x : = 0, 5 * ((A[i, j] ^ 2) + (A[i, j] ^ T[i, j])) ; writeln('X[', i, ', ', j, '] = ', x) ; end ; 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', а ожидалось оператор" Вопрос : в чем ошибка?
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 ;
Помогите пожалуйста, cрочно?
Помогите пожалуйста, cрочно!
Составить блок - схему.
Program primer6 ;
uses crt ;
x : integer ;
begin
clrscr ;
readln(x) ;
if x mod 2 = 0 then writeln ('да')
else writeln ('нет')
end.
Вы перешли к вопросу Помогите исправить программу?. Он относится к категории Информатика, для 10 - 11 классов. Здесь размещен ответ по заданным параметрам. Если этот вариант ответа не полностью вас удовлетворяет, то с помощью автоматического умного поиска можно найти другие вопросы по этой же теме, в категории Информатика. В случае если ответы на похожие вопросы не раскрывают в полном объеме необходимую информацию, то воспользуйтесь кнопкой в верхней части сайта и сформулируйте свой вопрос иначе. Также на этой странице вы сможете ознакомиться с вариантами ответов пользователей.
Var
a : array[1.
1000] of integer ; c, i, n, s : integer ; s1 : real ; begin ; readln(n) ; for i : = 1 to n do begin a[i] : = random(100) ; if a[i]< ; 50 then begin inc(c) ; s : = s + a[i] ; end ; end ; s1 : = s / c ; for i : = 1 to N do write(a[i] : 4) ; writeln ; writeln(s1) ;
end.
Исправила, все работает, только добовьте ваш модуль CRT обратно и поясняющие writeln'ы.