Pascal: одномерные массивы

@Knife · Регистрация: 01.04.2009

Author24 — интернет-сервис помощи студентам

Одномерные массивы. Даны целые числа a1,a2,...an Вывести на экран только те числа, для которых a;>=I

@kdslg · 08.04.2009, 21:44

Сообщение от Knife

Одномерные массивы. Даны целые числа a1,a2,...an Вывести на экран только те числа, для которых a;>=I

Pascal

Const N=10;
Var
  A:Array[1..N] of Real;
  I,J:Integer;
begin
 For J:=1 to N do Readln(A[J]);
 Readln(I);
 Writeln;
 Writeln('Result');
 For J:=1 to N do
    If A[I]>=I then Writeln(A[I])
 
end.

Вообще-то это задача для третьего класса

@JoKeR_SPb · 09.04.2009, 09:50

Для 3-го? А че же тогда ошибки как в первом?

Pascal

1
2
3

For J:=1 to N do
    If A[i]>=J then Writeln(A[J])
end.

@kdslg · 09.04.2009, 10:04

Спасибо, что заметил. Действительно I надо заменить на J

@Knife 0 / 0 / 1 Регистрация: 01.04.2009 Сообщений: 8
		1
	Pascal: одномерные массивы 08.04.2009, 21:06. Показов 681. Ответов 3 Метки нет (Все метки) Одномерные массивы. Даны целые числа a1,a2,...an Вывести на экран только те числа, для которых a;>=I 0

@kdslg 19 / 19 / 6 Регистрация: 06.04.2009 Сообщений: 73
	09.04.2009, 10:04	4
	Спасибо, что заметил. Действительно I надо заменить на J 0