Технический форум купить трафик таргетированный
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 23.04.2014, 22:18   #1 (permalink)
lalka
Member
 
Регистрация: 12.02.2014
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Smile Помогите решить задачу c массивами. Паскаль

Всем привет. Нужен код программы для этой задачи

Задача:
Задать массив из 10 случайных чисел в интервале от -10 до 10. Вывести индекс первого элемента с отрицательным значением.
lalka вне форума   Ответить с цитированием

Старый 23.04.2014, 22:18
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Наш форум уже встречал подобные топики, вот их список

Помогите решить задачу. Паскаль
Помогите пожалуйста решить задачу Паскаль
Помогите пожалуйста решить задачу Паскаль
Уважаемые программисты, помогите решить задачу на строки символов. Паскаль

Старый 23.04.2014, 23:31   #2 (permalink)
poiu
Member
 
Регистрация: 05.03.2014
Сообщений: 201
Сказал(а) спасибо: 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.
poiu вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.