Ребят скинула преподавателю задание и у нее неверное решение вылезает. Когда сама делала раз 20 все нормально было. Посмотрите есть ли ошибка и если есть как ее исправить что бы работало. Задача: Дан массив целых чисел, состоящий из 25 элементов. Из данного массива исключить последнее положительное число, а остальные записать в новый массив. Заполнить при функции RANDOM. Фото что вышло у преподавателя прикрепляю. program z3; const n = 25; var arr1, arr2: array[1..n] of integer; i, d: integer; begin d := n; for i := 1 to d do begin arr1[i] := random(20) - 10; write(arr1[i], ' '); end; for i := d downto 1 do if (arr1[i] >0) then break; dec(d); for i := i to d do arr1[i] := arr1[i + 1]; writeln; for i := 1 to d do begin arr2[i] := arr1[i]; write(arr2[i], ' '); end; end.
220
440
Ответы на вопрос:
Популярно: Информатика
-
Daniel20001113.02.2021 00:04
-
Samisha08.02.2023 12:03
-
dstepin1711.06.2020 00:46
-
Савина1122.02.2020 14:35
-
Акбота1ю16.11.2020 13:29
-
плщорршелит07.05.2021 14:28
-
20110224.11.2020 00:51
-
ladytka4ewa20102.12.2020 20:20
-
Витуся00722.09.2020 08:35
-
lagieto1234567821.01.2022 05:15