Помогите!:с нужно составить алгоритм на языке программирования Паскаль.
5-9 класс
|
Дан массив, состоящий из 10 элементов. Определите, сколько элементов этого массива имеют максимальное значение.
var a:array[1..10] of real;
b,c:integer;
max:real;
begin
c:=0;
writeln('Введите элементы массива');
for b:=1 to 10 do
begin
readln(a[b]);
end;
max:=a[1];
for b:=1 to 10 do
begin
if a[b]>max then max:=a[b];
end;
for b:=1 to 10 do
begin
if a[b]=max then c:=c+1;
end;
writeln('Количество элементов,имеющих максимальное значение равняется ',c);
end.
Другие вопросы из категории
сообщение: 77...105...99...107...101...121...32...77...111...117...115...101
Читайте также
Мне необходимо составить алгоритм каждой буквы : н,у,р,л,а,н
Примерно алгоритм выглядит вот так- Поднять перо. Сместиться в точку.Опустить перо.Сместиться на вектор.
Составьте хотя бы алгоритм буквы Н
if A>B then S: = A+B;
writeln (S);
Варианты ответов:1)5 ;2)6; 3)7; 4)8
2. Какое значение переменной S будет напечатано после выполнения фрагмента программы, записанной на языке программирования PASCAL:
S: =1;
N: =1;
while N<=3 do
begin
S: = S*N;
N: = N+1;
end;
writeln(S);
Варианты ответов: 1)2 ; 2)1; 3)0; 4)4
а)2,136+2/3y
б)(x-5)+a/3ax
Например:
Математическая запись: Запись на языке программирования:
a+3b-2c (a+3 умножить на b-2 умножить на c):(7 умножить на a+2)
Срочно!
ЗАДАЧА - Составить программу решения задачи: Z = m/(m-1)
ЗАДАЧА - Составить программу определения четных (нечетных) чисел