Пожалуйста сделайте в Паскале задание лёгкое, но постоянно ошибка:
10-11 класс
|
"Дан массив из 5 чисел, найти количество элементов которые равны минимуму."
pascal kol-vo_min;
const n=5;
var a:array[1..n]of integer;
i,min,kmin:index.
begin
min=0;
for i:=1 to n do begin a[i]:=random(100);
write(a[i],' : ');
if min>a[i] then min:=a[i];
end;
kmin;
for i:=1 to n do if a[i]=min then inc(kmin);
writeln(kmin);
readln();
end.
Другие вопросы из категории
Даны два действительных положительных числа x и y.
Тригонометрические действия над числами пронумерованы (1 - sin, 2 - cos, 3 - tg,
пользоваться. Добрые люди, пожалуйста, помогите :с Завтра сдавать :с
Читайте также
Как мне препод объясняла там должно быть for i:=1 to N do begin
P:P*(2*i)/(2*i+1)
end;
Вот часть которую нужно как то применить к этому заданию...
Как будет выглядеть весь код?)))
особенно обязательно вторые два задания.
(задание номер 5 на фото)
Дан одномерный массив А размерностью 16. Определить максимальное значение среди нечетных элементов массива, и минимальное среди четных элементов массива. Получить сумму максимального и минимального значений элементов массива и преобразовать данный массив по принципу из значений нечетных элементов вычесть сумму, а к четным элементам прибавить сумму. Все первоначальные элементы массива вводятся с клавиатуры.
2.
Все натуральные числа, начиная с 1, выписаны в одну строку без пробелов.Требуется написать программу, определяющую, какая цифра стоит в этой строке
на заданном месте.
Технические требования.
Имя входного файла: INPUT.TXT
Имя выходного файла: OUTPUT.TXT
Формат входных данных:
В единственной строке входного файла записано целое число N - длина слова (1 ≤ N≤ 100000000).
Формат выходных данных:
Выходной файл содержит одну искомую цифру.
Примеры файлов входных данных: Примеры файлов выходных данных:
21 5
что вышло у меня:Program zzz;
uses ctr;
var
M:array [1..7] of integer;
i,sum:integer;
begin;
clrscr;
sum:=0;
writeln('Введите массивы: ');
for i:=1 to 7 do begin
read (M[i]);
sum:=sum+sqr(M[i]);
дальше незнаю как да и это полным бредом наверно покажется знающим людям. Учусь на 1 курсе в вузе, в школе информатики не было вообще. Отчитали лекции нам, посадили за компы, а я паскаль этот в первый раз и увидел на первом же занятии... Пытаюсь вникнуть но не особо получается. Прошу помощи)