24.01.2011, 17:21 | #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:21 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я уверен, что в этих обсуждениях вы найдете решение Массивы. Паскаль Массивы Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл |
24.01.2011, 20:18 | #2 (permalink) |
404
Регистрация: 10.01.2010
Сообщений: 1,749
Записей в дневнике: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3868
|
program mass;
uses crt; var x:array[1..40] of integer; i:integer; begin clrscr; begin for i:=1 to 40 do begin readln(x[i]); if (x[i]<0) then begin writeln('element pod nomerom ', i,' znachenie ',x[i]); readln; exit; end; end; end; end. вот собственно. если что то говори переделаю=) |
24.01.2011, 21:14 | #5 (permalink) |
404
Регистрация: 10.01.2010
Сообщений: 1,749
Записей в дневнике: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3868
|
обращайся)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
массивы, паскаль |
Опции темы | |
Опции просмотра | |
|
|