evsmorodina
?>

Вмассиве хранится информация о росте 25 человек.определить, насколько рост самого высокого человека превышает рост самого низкого.

Информатика

Ответы

ОвчинниковаТатьяна
Program z1;
var a:array [1..25] of integer;
i,max,min:integer;
begin
read(a[1]);
max:=a[1];
min:=a[1];
for i:=2 to 25 do
begin
read(a[i]);
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
write(max-min);
end.
Dimston134877
При форматировании документа в целом могут выполняться следующие операции: - установка параметров страницы (формата печатной страницы): полей страницы, размера бумаги, ориентации листа – книжной или альбомной и др. - разбивка на страницы, разделы; - вставка номеров страниц, колонтитулов, сносок, закладок, примечаний и т.п.; - создание или вставка формул, рисунков, таблиц, видео или звуковых фрагментов; - вставка названий иллюстраций, перекрестных ссылок; - форматирование оглавления, указателей, списков иллюстраций и т.д.
tat122

uses crt; var e:array[1..3,1..7] of integer; s,max,n,m:integer;

index,sum:integer;

procedure max_el;

begin max:=e[1,1];

sum:=0;

index:=0;

for n:=1 to 3 do

begin

for m:=1 to 7 do

begin

if e[n,m]>max then

begin

max:=e[n,m];

index:=m;

end;

end;

end;

for n:=1 to 3 do

begin

if e[n,index]<0 then

begin

sum:=sum+e[n,index];

end;

end;

writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum);

end;

begin

clrscr;

writeln('elementy massiva');

writeln;

randomize;

for n:=1 to 3 do begin for m:=1 to 7 do

begin

e[n,m]:=random(100) -50;

write('',e[n,m],' ');

end;

writeln;

end;

writeln;

writeln;

max_el;

readkey;

end.

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вмассиве хранится информация о росте 25 человек.определить, насколько рост самого высокого человека превышает рост самого низкого.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

NIKOLAI
Gaziev1636
grishin
Лусине_Ильенков134
ka-shop
snabomp
larson96
jaksonj326
lionmost6979
Шеина
Картузов-Алексей1252
petrosyan35
art-03857
Марина566
tigo1