Помогите решить задачу, срочно! Задача внутри. - Форум
Пятница, 09.12.2016, 12:37
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите решить задачу, срочно! Задача внутри. (задачи из прошлого ЕГЭ)
Помогите решить задачу, срочно! Задача внутри.
salihovichДата: Понедельник, 12.04.2010, 22:58 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Дан целочисленный массив из 30 элементов. Элементы масссива могут принимать произвольные значения. С клавиатуры вводится целое число X. Составить алгоритм, который находит и выводит наименьший номер элементы со значением X или сообщение, что такого элемента нет!
Turbo Pascal


Сообщение отредактировал salihovich - Вторник, 13.04.2010, 05:38
 
GrihaIДата: Вторник, 13.04.2010, 01:49 | Сообщение # 2
Генерал-полковник
Группа: Участник
Сообщений: 89
[ 1 ]
Статус: Offline
На каком языке?

Собираю деньги на инв. коляску. С предложениями писать в личку или мыло.
 
HumanДата: Пятница, 16.04.2010, 05:26 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
var
i: integer;
a: array[1..30] of integer;
x,c: integer;
begin
c:=0;
read[x];
for i:=1 to 30 do begin
if a[i]=x then begin
if c<>0 then
c:=i;
end;
end;
if c<>0 then
write© else
write('такого элемента нет!');
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите решить задачу, срочно! Задача внутри. (задачи из прошлого ЕГЭ)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016