Автор C m задал вопрос в разделе Другие языки и технологии
Pascal ABC/Program1.pas(12) : Ошибка времени выполнения: Индекс выходит за границы массива и получил лучший ответ
Ответ от Krab Bark[гуру]
program ar6;
var i,k,n:integer; a:array[1..100]of integer;
begin
write('Введите размер массива: '); readln(n); k:=0;
writeln('Введите значения элементов массива, разделяя их пробелами');
for i:=1 to n do read(a[i]); readln;
for i:=2 to n do k:=k+ord(odd(a[i-1]+a[i])and(a[i-1]+a[i]>0));
write(k); writeln;
writeln('Для выхода нажмите Enter'); readln
end.
Krab Bark
(112429)
За изменение типа данных. Вместо объяснений мне проще написать это иначе:
for i:=2 to n do if odd(a[i-1]+a[i])and(a[i-1]+a[i]>0) then k:=k+1;
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Pascal ABC/Program1.pas(12) : Ошибка времени выполнения: Индекс выходит за границы массива
Как в Pascal ABC с помощью модуля graph abc нарисовать это
Решение на Pascal ABC
program star;
uses graphabc;
var k, xw, s: integer;
подробнее...
спросили в ABC
Как добавить файл в исключения Антивируса AVG, что-бы он его не трогал?
1. В панели задач щелкните правой кнопкой мыши на значке AVG;
2. В контекстном меню выберите
подробнее...
Как добавить файл в исключения Антивируса AVG, что-бы он его не трогал?
1. В панели задач щелкните правой кнопкой мыши на значке AVG;
2. В контекстном меню выберите
подробнее...
спросили в Удалить ABC
как удалить антивирус AVG?
1. Убрать из автозагрузки AVG.
2. Перезагрузить комп (соответственно он не запустится) .
подробнее...
как удалить антивирус AVG?
1. Убрать из автозагрузки AVG.
2. Перезагрузить комп (соответственно он не запустится) .
подробнее...
что за антивирус такой AVZ Guard?Как он работает и в чем его особенность?
Это не антивирус. Это мини-драйвер в AVZ, позволяющий запретить всем процессам (кроме доверенных)
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
Помогите составить программу в Pascal ABC
program ok;
var
num:integer;
a,b,c:integer;
begin
readln(num);
a:=num
подробнее...
спросили в Grave
Подскажите, почему, когда запускаю любую нормальную программу в Pascal ABC. Выдаеться Ошибка:Модуль Graph не найден.
Стандартная проблема неправильно установленного паскаля.
Options >> Directories
подробнее...
Подскажите, почему, когда запускаю любую нормальную программу в Pascal ABC. Выдаеться Ошибка:Модуль Graph не найден.
Стандартная проблема неправильно установленного паскаля.
Options >> Directories
подробнее...
спросили в Цикл
Помогите разобраться с циклами For..To..Do (Pascal ABC)
Когда надо что-то перебрать, используется цикл. Вот и все.
program easy;
var
подробнее...
Помогите разобраться с циклами For..To..Do (Pascal ABC)
Когда надо что-то перебрать, используется цикл. Вот и все.
program easy;
var
подробнее...
спросили в Randomness
Напишите пожалуйста программы для Pascal ABC:
Вот так будет правильней твое первое задание
var a:array[1..20] of integer;
подробнее...
Напишите пожалуйста программы для Pascal ABC:
Вот так будет правильней твое первое задание
var a:array[1..20] of integer;
подробнее...
apk формат. киньте кто нибуть ссыль на прогу для открывания apk файлов на компе плизз
Это формат Андроида. В нём и открывайте. С уважением, ваш
подробнее...