МОВА ПРОГРАМУВАННЯ - PASCAL
Записати тіло програми, яка :
1. визначить найбільше значення елементів табличної величини
(дані вводяться з клавіатури).
2. визначить, скільки разів задане дійсне число трапляється серед значень елементів табличної величини (дані вводяться з клавіатури).
Ответы
program MaxAndCount;
const
MAX_SIZE = 100;
var
arr: array[1..MAX_SIZE] of real;
n, i, count: integer;
max: real;
x: real;
begin
// Запитуємо розмір масиву
writeln('Введіть розмір масиву: ');
readln(n);
// Заповнюємо масив з клавіатури
writeln('Введіть елементи масиву: ');
for i := 1 to n do begin
readln(arr[i]);
end;
// Знаходимо найбільший елемент масиву
max := arr[1];
for i := 2 to n do begin
if arr[i] > max then begin
max := arr[i];
end;
end;
writeln('Найбільший елемент масиву: ', max:0:2);
// Знаходимо кількість входжень числа x у масив
writeln('Введіть число, яке потрібно знайти: ');
readln(x);
count := 0;
for i := 1 to n do begin
if arr[i] = x then begin
count := count + 1;
end;
end;
writeln('Кількість входжень числа ', x:0:2, ': ', count);
end.