Размещено 6 лет назад по предмету Информатика от MargoDubon

Тема: Последовательный поиск в массиве.
Сгенерировать массив из 5 элементов, найти в массиве число 3. Найти в массиве число больше 3. Найти сумму чисел в массиве удовлетворяющих условию 3<=x<=5. Пожалуйста помогите. Я ничего в этом не понимаю (много болела). Просто фото этой програмы нужно.

Ответ на вопрос

Ответ на вопрос дан Аккаунт удален

Если я правильно понимаю то вот:
1. Ответ на вопрос
  
  Ответ на вопрос дан MargoDubon
  
  Часть написанного тобой мне поможет при составлении програмы, но задание то другое. Все равно благодарю за помощь.
Ответ на вопрос

Ответ на вопрос дан 13nisa13

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.
1. Ответ на вопрос
  
  Ответ на вопрос дан MargoDubon
  
  Я знаю. Я твою программу скопиравала в программу для составления программ под названием algo. Выскочила табличка: (Ошибка выполнения-1001)Переменной не присвоено значение.
2. Ответ на вопрос
  
  Ответ на вопрос дан 13nisa13
  
  Я использую другой компилятор... PascslABCNet...
3. Ответ на вопрос
  
  Ответ на вопрос дан MargoDubon
  
  и у тебя нет ошибки?
4. Ответ на вопрос
  
  Ответ на вопрос дан 13nisa13
  
  Нет... ))) Поставила твою... Разобралась... Добавь s:=0; после первого begin и у меня не читает текст - только знаки вопроса, но повторное копирование (отдельно текста) всё решает... )))
5. Ответ на вопрос
  
  Ответ на вопрос дан MargoDubon
  
  О, я подставила. У меня тоже работает. Просто огромнейшее СПАСИБООООО!!!! По инфе точно у тебя 6.