Технический форум - Паскаль массивы

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Паскаль массивы (http://www.tehnari.ru/f41/t46278/)

Ella	24.01.2011 17:33

Паскаль массивы

Помогите мне пожалуйста. У меня лаб.работа по Паскалю. Я попыталась сделать, но у меня почему-то не получается.

Для массива Х [1..40] вывести первый отрицательный элемент и его порядковый номер.

program mass;
uses crt;
var x:array [1..40] of integer;
i,k: integer;
begin
clrscr;
k:=0;
for x:=1 to 40 do
begin
k:=k+1;
if x<0 then
writeln ('element pod nomerom', k, 'znacenie', x);
end;
end.

Помогите пожалуйста написать правильный код....
Заранее благодарю.

Ella	24.01.2011 19:12

пожалуйста, помогите.... очень очень надо :( :( :(

Vladimir_S

24.01.2011 20:53

Цитата:

Сообщение от Ella (Сообщение 452215)

пожалуйста, помогите.... очень очень надо :( :( :(

Пожалуйста, ошибки я исправил:

Код:

program mass;

uses crt;

var

 x:array [1..40] of integer;

 k: integer;

begin

 Randomize;

 clrscr;

 for k:=1 to 40 do

  begin

   x[k]:=50-Random(100);

   Write(X[k]:4);

  end;

 writeln;

 k:=0;

 Repeat

  k:=k+1;

 Until x[k]<0;

 writeln ('element pod nomerom ', k, ' znacenie ', x[k]);

 readln;

end.

Добавлено заполнение массива с помощью генератора случайных чисел и вывод массива на экран.

Vladimir_S

25.01.2011 12:47

2 Mr.Программист
Обсуждение Вашего варианта решения задачи выделено в отдельную тему.

Часовой пояс GMT +4, время: 07:47.