24.01.2011, 17:33 | #1 (permalink) |
Member
Регистрация: 24.01.2011
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль массивы
Для массива Х [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. Помогите пожалуйста написать правильный код.... Заранее благодарю. |
24.01.2011, 17:33 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Нашлось еще несколько тем, которые создавались ранее Массивы. Паскаль Массивы |
24.01.2011, 20:53 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Пожалуйста, ошибки я исправил:
Код:
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. |
25.01.2011, 12:47 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
2 Mr.Программист
Обсуждение Вашего варианта решения задачи выделено в отдельную тему. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
массивы, паскаль |
|
|