Написать программу для табулирования функции на языке питон
Ответы
program massiv;
const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
i: integer;
max: integer;
counter: integer;
begin
max:=0;
counter:=0;
for i:=1 to Sz do begin
a[i] := random(26) + 10;
if a[i] > max then begin
max := a[i];
end;
end;
writeln('Элементы массива: ');
for i:=1 to Sz do begin
write(a[i],' ');
if a[i] = max then begin
counter := counter + 1;
end;
end;
writeln('');
writeln('Максимальный элемент: ', max);
writeln('Кол-во таких элементов ', counter);
end.
Объяснение:
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Компьютерлік модельді анықта.—
Автор: tatk00
нужно контрольную работу сдать
Автор: varvara-kulkova
Составь рассказ о правилах безопасной работы и поведения в компьютерном классе.
Автор: Alekseevich_Elena
перейдите по ссылке http://onetime.club/scr/manson
Автор: tatiana2676
Что вы понимаете под систематизацией ?
Автор: profitgroup51
Нарисуете блок-схему заданы длины треугольник a, b, c. определить является ли треугольник равносторонним.
Автор: Olegovich Nikolaevna
program massiv;
const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
i: integer;
max: integer;
counter: integer;
begin
max:=0;
counter:=0;
for i:=1 to Sz do begin
a[i] := random(26) + 10;
if a[i] > max then begin
max := a[i];
end;
end;
writeln('Элементы массива: ');
for i:=1 to Sz do begin
write(a[i],' ');
if a[i] = max then begin
counter := counter + 1;
end;
end;
writeln('');
writeln('Максимальный элемент: ', max);
writeln('Кол-во таких элементов ', counter);
end.
Объяснение: