Найти кол-во элементов, больших f

@AlexBalckRose · Регистрация: 19.06.2013

Студворк — интернет-сервис помощи студентам

Найти кол-во элементов, больших f.
Помогите пожалуйста.
Вот то, что намудрил.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
       program r1;
    var a:array  [2..8] of integer;
k,i,f:integer;
begin
read(f);
   k:=0;
  i:=2;
  for i:=2 to 8 do
if a[i]<f then k:=k+1;
a[i]:= i +1;
 
write(k);
    end.

// Всегда выдает 7

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
       program r1;
    var a:array  [2..8] of integer;
i,f:integer;
begin
read(f);
 
  i:=2;
if a[i]<f then writeln('-') ;
if a[i]>f then writeln('+');
 
 
  end.

// Не проверяет второе условие

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
       program r1;
    var a:array  [2..8] of integer;
f:real;
begin
read(f);
 
 
 
if a[2]<f then writeln('-')
else
writeln('+');
 
if a[3]<f then writeln('-')
else
writeln('+');
 
if a[4]<f then writeln('-')
else
writeln('+');
if a[5]<f then writeln('-')
else
writeln('+');
if a[6]<f then writeln('-')
else
writeln('+');
if a[7]<f then writeln('-')
else
writeln('+');
if a[8]<f then writeln('-')
else
writeln('+');
 
  end.

// Не проверяет ветку елс

Есть подозрения, что объявляю массив не правильно, но перечитав тонны информации, подтверждений не нашел(

Добавлено через 3 минуты
Сорри за синтаксис

@Soniyagfto · 25.11.2013, 19:31

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program test1;
var a:array[1..255] of integer;
i,n,f,k:integer;
begin
randomize;
writeln ('Введите параметр "f"');
readln (f);
writeln ('Введите размерность массива');
readln (n);
writeln ('Массив:');
for i:=1 to n do begin
a[i]:=random(100)-50;
if a[i]>f then 
k:=k+1;
write (a[i],' ');
end;
writeln ('Кол-во элементов, больших f:',' ',k);
readln;
end.

@AlexBalckRose · 25.11.2013, 21:26 **[ТС]**

Soniyagfto, Ок, а если даны определенные значения массива? Скажем: 1, 6,8,4,3,9. И если не затруднит, можешь в кратце объяснить что не так с моим кодом?

Добавлено через 1 минуту
Добавлено через 1 час 48 минут
Разобрался, спасибо.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program z1;
const m:array[1..8] of real=(0,0,-1,10,13.6,100000,0.000096,0.75); n = 8;
var
i,a,k:integer;
begin
writeln ('Введите параметр "a"');
readln (a);
writeln ('Массив:');
for i:=1 to n do begin
if m[i]>a then
k:=k+1;
write (m[i],' ');
end;
writeln ('Кол-во элементов, больших a:',' ',k);
readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .