23.04.2014, 22:18 | #1 (permalink) |
Member
Регистрация: 12.02.2014
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить задачу c массивами. Паскаль
Задача: Задать массив из 10 случайных чисел в интервале от -10 до 10. Вывести индекс первого элемента с отрицательным значением. |
23.04.2014, 22:18 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Наш форум уже встречал подобные топики, вот их список Помогите решить задачу. Паскаль Помогите пожалуйста решить задачу Паскаль Помогите пожалуйста решить задачу Паскаль Уважаемые программисты, помогите решить задачу на строки символов. Паскаль |
23.04.2014, 23:31 | #2 (permalink) |
Member
Регистрация: 05.03.2014
Сообщений: 200
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 834
|
медвежья услуга, но все же...
program piupiu; uses crt; type Tmas = array [1..10] of integer; var mas: Tmas; i: byte; begin clrscr; randomize; writeln('Massiv:'); for i:= 1 to 10 do begin mas[i]:= -10 + random(20); write(mas[i]:4); end; writeln; for i:= 1 to 10 do if mas[i] < 0 then begin writeln('Position first minus: ',i); break; end; readln; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|