Предмет: Информатика,
автор: MargoDubon
Тема: Последовательный поиск в массиве.
Сгенерировать массив из 5 элементов, найти в массиве число 3. Найти в массиве число больше 3. Найти сумму чисел в массиве удовлетворяющих условию 3<=x<=5. Пожалуйста помогите. Я ничего в этом не понимаю (много болела). Просто фото этой програмы нужно.
Ответы
Автор ответа:
2
Если я правильно понимаю то вот:
Приложения:
MargoDubon:
Часть написанного тобой мне поможет при составлении програмы, но задание то другое. Все равно благодарю за помощь.
Автор ответа:
1
const n=5;
var a:array [1..n] of integer;
i,s:integer;
begin
for i:= 1 to n do
begin
a[i]:=Random(5)+2;
write(a[i],' ');
end;
writeln;
for i:= 1 to n do if a[i]=3 then writeln (i,' элемент равен ',a[i]);
for i:= 1 to n do if a[i]>3 then writeln (i,' элемент больше 3 и равен ',a[i]);
for i:= 1 to n do if (a[i]>=3) and (a[i]<=5) then s:=s+a[i];
writeln ('Сумма чисел в массиве удовлетворяющих условию 3<=x<=5 равна ',s)
end.
Спасибо!!!!!!!!!
он пишет, что переменной не присвоено значение. Что делать?
Кто он?
algo
Это Pascal
Я знаю. Я твою программу скопиравала в программу для составления программ под названием algo. Выскочила табличка: (Ошибка выполнения-1001)Переменной не присвоено значение.
Я использую другой компилятор... PascslABCNet...
и у тебя нет ошибки?
Нет... ))) Поставила твою... Разобралась... Добавь s:=0; после первого begin и у меня не читает текст - только знаки вопроса, но повторное копирование (отдельно текста) всё решает... )))
О, я подставила. У меня тоже работает. Просто огромнейшее СПАСИБООООО!!!! По инфе точно у тебя 6.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: derkuthinadaniya
Предмет: Русский язык,
автор: Andy12367
Предмет: Математика,
автор: mila4361
Предмет: Информатика,
автор: cfvfbghn