Паскаль массивы
Помогите мне пожалуйста. У меня лаб.работа по Паскалю. Я попыталась сделать, но у меня почему-то не получается. :tehnari_ru_867:
Для массива Х [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. Помогите пожалуйста написать правильный код.... Заранее благодарю. |
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. вот собственно. если что то говори переделаю=) |
artur profi
|
ой :)
IlyhaSH -- Спасибо большое, все работает !!! Ура :)) |
обращайся)
|
Часовой пояс GMT +4, время: 18:13. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.