Предмет: География, автор: juliagimla7

Срочноооооо..........
Пжпжпжпжпжп
100 балов даюю​

Приложения:

Ответы

Автор ответа: sonia0007
0

1) Б

2) 1, 4, 6ㅤㅤㅤㅤㅤㅤㅤㅤㅤ

Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Русский язык, автор: ятут3
помогите пожалуйста 5 номер
2 года назад
Предмет: Английский язык, автор: Аноним
Помогите! Сделать письмо другу о том как добраться ко мне домой!
2 года назад
Предмет: Русский язык, автор: POLInaPerederina62
Запишите предложения.Произведите их разбор по членам предложения.
2 года назад
Предмет: Математика, автор: olualukochina
Помогите не врубаюсь в задачу!!!!
9 лет назад
Предмет: Информатика, автор: gerafsfd
Помогите пожалуйста, не могу найти ошибку!
Ошибка вида: "Ошибка времени выполнения: Индекс находился вне границ массива."


const
n=5;
var a,b:array[1..n] of integer;
i,j:byte;

begin
for i:=1 to n do
begin
write('Введите ',i,'-ый(ой) эелемент массива = ');
readln(a[i]);
end;
writeln;

writeln(' Массив "А"');
for i:=1 to n do
write(' |',a[i],'|');
writeln;

j:=0;
for i := 1 to n do
begin
if (b[j]>0) and (b[j] mod b[j]=0) and (b[j] mod 1 =b[j]) then
begin
inc(j);
b[j] := a[i];
end;
end;
writeln;
writeln(' Массив "B"');
for i := 1 to j do
write(' |',a[i],'|');
writeln;

end.
9 лет назад