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

Savostinak 12 дек. 2020 г., 05:56:01

Program lab5_5 ;

const n = 10 ;

type x = array[1.

N]

of integer ;

var a : x ; i, k : integer ;

begin

for i : = 1 to n do

begin

read(a[i]) ; {с вашего позволения я убрал "write (A[i] : 4)" в остальном программа получает от пользователя 10 чисел и обрабатывает их}

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.

Snigir03 21 мар. 2020 г., 05:22:11 | 10 - 11 классы

Составить блок схему по программе : Program Vectors ; var k, i, j, sum, para : integer ; y, z : array[1?

Составить блок схему по программе : Program Vectors ; var k, i, j, sum, para : integer ; y, z : array[1.

100] of integer ; begin sum : = 0 ; para : = 0 ; writeln('Введите количество элементов в массивах') ; readln(k) ; for i : = 1 to k do begin writeln('Введите z - ', i) ; readln(z[i]) ; writeln('Введите y - ', i) ; readln(y[i]) ; if z[i] = y[i] then para : = para + 1 ; sum : = sum + z[i] ; end ; writeln('Количество элементов удовлетворяющих условию : ', para) ; writeln('Сумма всех элементов массива z = ', sum) ; 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.

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

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.

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

Pashuto73 25 янв. 2020 г., 11:51:00 | 10 - 11 классы

Найти кол - во отрицательных чисел этого массива const n = 15 ; var a : array[1?

Найти кол - во отрицательных чисел этого массива const n = 15 ; var a : array[1.

N] of integer ; i, k : integer ; begin randomize ; k : = ; for i : = 1 to n do a[i] : = random(51) - 25 ; for i : = 1 to n do write(a[i] : 4) ; writeln ; for i : = 1 to n do if a[i] then k : = ; writeln('кол - во отрицательных : ', ) ; end.

NELLYASX 9 июл. 2020 г., 15:08:30 | 10 - 11 классы

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

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

10]of integer ; i, k, n : integer ; begin n : = 0 ; k : = 0 ; Writeln('Исходный массив : ') ; Randomize ; for i : = 1 to 10 do begin a[i] : = Random(51) - 25 ; Write(a[i], ' ') ; end ; Writeln ; 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('Номер предпоследнего положительного элемента : ', n) ; Readln ; 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', а ожидалось оператор" Вопрос : в чем ошибка?

Make96th 18 янв. 2020 г., 03:04:39 | 10 - 11 классы

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) ; что то неправильно говорят массив.

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 ;

Помаг 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.