RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 197169: Здравствуйте! У меня возникли сложности с таким вопросом: 1. Создайте целочисленный массив А[1..15] с помощью генератора случайных чисел с элементами от –15 до 30 и выведите его на экран. Отсортировать по убыванию и вывести полученный массив на экран. Pascal ... Консультация # 197170: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Составьте программу, упорядочивающую по убыванию элементы каждой строки матрицы размером m*n. (размер м атрицы вводится с клавиатуры, но не более 10). Массив заполнить случайными вещественными числами от 0 до 20. Pascal ... Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 22.11.2019, 18:40 Консультирует puporev (Профессионал): Здравствуйте, rail! Код (Pascal) :: выделить код var a:array[1..10,1..10] of integer;
n,m,i,j,k:integer;
s:real;
begin
repeat
writeln('Введите размеры массива от 2 до 10');
readln(n,m);
until(n in [2..10])and(m in [2..10]);
writeln('Введите элементы массива, целые положительные и отрицательные числа');
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
writeln('Введенный массив');
s:=0;
k:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:5);
if a[i,j]>0 then
begin
k:=k+1;
s:=s+a[i,j];
end;
end;
writeln;
end;
if k=0 then write('В массиве нет положительных элементов')
else
begin
s:=s/k;
write('Среднее арифметическое положительных элементов=',s:0:2)
end;
end.
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 23.11.2019, 09:51 Консультирует puporev (Профессионал): Здравствуйте, rail! Код (Pascal) :: выделить код const n=15;
var a:array[1..n] of integer;
i,j,x:integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
begin
a[i]:=-15+random(46);
write(a[i]:4);
end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln('Отсортированный массив');
for i:=1 to n do
write(a[i]:4);
end.
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 23.11.2019, 09:52 Консультирует puporev (Профессионал): Здравствуйте, rail! Код (Pascal) :: выделить код var a:array[1..10,1..10] of integer;
m,n,i,j,k,x:integer;
begin
repeat
writeln('Введите размеры матрицы m,n от 2 до 10');
readln(m,n);
until(m in [2..10])and(n in [2..10]);
randomize;
writeln('Исходная матрица');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(21);
write(a[i,j]:3);
end;
writeln;
end;
for i:=1 to m do
for j:=1 to n-1 do
for k:=j+1 to n do
if a[i,j]<a[i,k] then
begin
x:=a[i,j];
a[i,j]:=a[i,k];
a[i,k]:=x;
end;
writeln('Строки матрицы отсортированы');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
