| ← Июнь 2019 → | ||||||
|
3
|
4
|
5
|
8
|
9
|
||
|---|---|---|---|---|---|---|
|
10
|
11
|
12
|
13
|
14
|
16
|
|
|
17
|
18
|
19
|
20
|
21
|
22
|
23
|
|
24
|
25
|
26
|
27
|
28
|
29
|
30
|
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Написать программу в Pascal ABC. Описать рекурсивную функцию MaxElem(A, N) целого типа, которая находит максимальный элемент целочисленного массива A размера N (1 ≤ N ≤ 10), не используя оператор цикла. С помощью этой функции найти максимальные элементы массивов A, B, C размера NA, NB, NC соответственно.
Дата отправки: 27.05.2019, 16:14 Консультирует puporev (Профессионал): Здравствуйте, tanya.hryanina! Код (Pascal) :: выделить код type mas=array[1..10] of integer;
procedure Massiv(var a:mas;var n:integer;c:char);
var i:integer;
begin
repeat
write('Введите размер массива ',c,' от 2 до 10 n=');
readln(n);
until n in [2..10];
writeln('Массив ',c);
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
end;
function MaxElem(a:mas;n:integer):integer;
var w:integer;
begin
if n>1 then
begin
w:=MaxElem(a,n-1);
if a[n]<w then MaxElem:=w else MaxElem:=a[n];
end
else MaxElem:=a[1];
end;
var a,b,c:mas;
na,nb,nc:integer;
begin
randomize;
massiv(a,na,'A');
writeln('Максимальный элемент=',MaxElem(a,na));
massiv(b,nb,'B');
writeln('Максимальный элемент=',MaxElem(b,nb));
massiv(c,nc,'C');
writeln('Максимальный элемент=',MaxElem(c,nc));
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
