Помогите в Паскале изменить текст программы так, чтобы выводила не только индекс элемента, но и его значение var a : array[1?

Gunya99 9 июл. 2020 г., 15:08:32

Var a : array[1.

10]of integer ; i, k, n : integer ;

begin Writeln('Исходный массив : ') ; Randomize ; for i : = 1 to 10 do begin a[i] : = Random(51) - 25 ; Write(a[i], ' ') ; end ; Writeln ; n : = 0 ; k : = 0 ; for i : = 10 downto 1 do if a[i] > ; 0 then begin k : = k + 1 ; if k = 2 then n : = i ; end ; if k = 0 then Writeln('В массиве нет положительных элементов!

') else Writeln('Предпоследний положительный элемент : a[', n, '] = ', a[n]) ; Readln ;

end.

Прыгайзайка 17 янв. 2020 г., 13:47:28 | 5 - 9 классы

Заполните пропуски в программе ввода и вывода 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.

Марина24 24 сент. 2020 г., 06:31:21 | 10 - 11 классы

Помогите найти ошибку в программе?

Помогите найти ошибку в программе.

Умножение двумерного массива.

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.

ЗАРАНЕЕ СПАСИБО!

Sds58 12 дек. 2020 г., 05:55:57 | 10 - 11 классы

Написать программу для решения следующей задачи : в заданной числовой последовательности найти и вывести на печать номер первого отрицательного элемента?

Написать программу для решения следующей задачи : в заданной числовой последовательности найти и вывести на печать номер первого отрицательного элемента.

Если все элементы последовательности неотрицательны, то вывести ноль.

Program lab5_5 ; const n = 10 ; type x = array[1.

N] of integer ; var a : x ; i : integer ; k : integer ; begin for i : = 1 to n do begin a[i] : = - 10 + random (91) ; write (A[i] : 4) end ; writeln ; k : = 0 ; for i : = n downto 1 do if a[i]< ; 0 then begin k : = I end ; if k> ; 0 then writeln (‘Индекс отрицательного элемента = ’, k : 1) else writeln (‘В массиве нет отрицательных элементов’) ; readln ; end.

Как сделать эту программу без random чтоб работало в Pascal ABC?

Rahila11 26 мар. 2020 г., 12:52:55 | 10 - 11 классы

Паскаль?

Паскаль.

Найти произведение сумм положительных элементов столбцов матрицы Подскажите пожалуйста, что нужно вписать программу, чтобы выводило ПРОИЗВЕДЕНИЕ сумм столбцов вот программа, которая вычисляет сумму положительных элементов столбца program hhhhhhh ; uses crt ; const mx = 20 ; var a : array [1.

Mx, 1.

Mx] of integer ; i, r, j, c : integer ; p : double ; s : real ; found : boolean ; begin randomize ; write('Введите кол - во строк (1.

', mx, ') : ') ; readln(r) ; writeln ; if (r< ; 1) or (r> ; mx) then writeln(' не верно введены данные!

') else write('Введите кол - во столбцов (1.

', mx, ') : ') ; readln(c) ; if (c< ; 1) or (c> ; mx) then writeln(' не верно введены данные!

') else writeln ; writeln(' Исходная матрица : ') ; writeln ; for i : = 1 to r do begin for j : = 1 to c do begin a[i, j] : = - 99 + random(199) ; write(a[i, j] : 4) end ; writeln ; end ; writeln ; writeln ; writeln(' Сумма положительных элементов столбцов матрицы : ') ; writeln ; writeln ; for j : = 1 to c do begin s : = 1 ; p : = 0 ; found : = false ; writeln ; write('В ', j : 2, ' столбце : ') ; for i : = 1 to r do if (a[i, j] > ; 0)then begin p : = p + a[i, j] ; found : = true end ; if found then writeln(p : 0 : 0) else writeln('Положительные элементы не найдены!

') ; end ; end.

Как мне посчитать произведение сумм?

Marta134 18 сент. 2020 г., 05:01:56 | 10 - 11 классы

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.

Определить, на какой позиции нахо - дится минимальный элемент массива.

MrFrAnKiNsHtAiN 14 апр. 2020 г., 19:06:15 | 10 - 11 классы

По тексту программы определите условие задачи var i, x, s, k, n : integer ; begin s : = 0 ; k : = 0 ; readln(n) ; for i : = 1 to n do begin read(x) ; if x> ; 0 then begin S : = s + x ; k : = k + 1 ?

По тексту программы определите условие задачи var i, x, s, k, n : integer ; begin s : = 0 ; k : = 0 ; readln(n) ; for i : = 1 to n do begin read(x) ; if x> ; 0 then begin S : = s + x ; k : = k + 1 ; end ; end ; if k : = 0 then writeln(s) else writeln(s / k : 4 : 2) ; end.

AvEnTaDoR005 25 сент. 2020 г., 12:43:18 | 5 - 9 классы

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', а ожидалось оператор" Вопрос : в чем ошибка?

Ksusha1037 25 июн. 2020 г., 21:03:03 | 5 - 9 классы

Здравствуйте, помогите пожалуйста найти ошибку 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 ;

Oksankataktash 9 нояб. 2020 г., 16:25:18 | 10 - 11 классы

Здравствуйте, что в этом коде на free pascal считает k?

Здравствуйте, что в этом коде на free pascal считает k?

Program SiberiaBoss ; var a : array[1.

100] of integer ; i, k, n : integer ; begin readln(n) ; randomize ; for i : = 1 to n + 1 do begin a[i] : = random(10) ; if a[i] < ; i then k : = k + 1 ; writeln(a[i] : 3) ; end ; writeln('Itogo ', k) ; end.

Помаг 24 сент. 2020 г., 21:16:58 | 5 - 9 классы

Что надо переделать (или добавить) чтобы все работало?

Что надо переделать (или добавить) чтобы все работало?

Program dfgvsdrfg ;

Var A : array [1.

16] of integer ;

k, i : integer ;

begin

writeln('исходные значения') ;

for i : = 1 to 16 do

begin

A[i] : = random (41) - 20 ;

write (A[i], '') ;

end ;

writeln ;

write('нулевые значения имеют элементы с индексами : ')

for i : = 1 to 16 do

if A[i] = 0 then write (i, '') ;

end.