Ответы 4
-
1941 году
-
Автор:
bubbaf71m - 6 лет назад
-
0
-
-
спс
-
Автор:
ellianafuentes - 6 лет назад
-
0
-
-
Пожалуйста ;)
-
Автор:
newman - 6 лет назад
-
0
-
-
В 1939году 1-сентября
-
Автор:
iris79 - 6 лет назад
-
0
-
-
Добавить свой ответ
Еще вопросы
-
Определите массу и количество водорода, которая потребуется для взаимодействия с кислородом массой 8 г.
-
Предмет:
Химия -
Автор:
goldilocksf3jh - 6 лет назад
-
Ответов:
0 -
Смотреть
-
-
Прочитай текст. Какова его назначение: рассказать историю, описать комнату, по рассуждать о ней? Местоимения какого лица,рода и числа нужно употребить в предложениях вместо точек?
Посередине комнаты стоял стол. ... был таким громоздким,что , казалось занимал все пространство . Вокруг него стояли стулья. ... были незаметны и как бы срослись со столом в одно целое. На столе возвышалась ваза. ... казалась частью столешницы.
запиши текст подчеркивая в предложениях подлежащие. Укажи род и число частей речи, которыми они выражены.-
Предмет:
Русский язык -
Автор:
sarai - 6 лет назад
-
Ответов:
5 -
Смотреть
-
-
Помогите пожалуйста. Написала программу с подпрограммой на паскале, но что-то нет так. В компьютере не работает помогите найти и исправить ошибку.
Задание:
Дано: массивы I(11), K(11). Сформировать массив М (11), элементы которого вычисляются по формуле
M j= I j+ K j (j=1,11). Массивы I,K предварительно реорганизовать следующим образом: на первом месте, в данных массивах должен стоять элемент с минимальным значением . поиск минимального элемента массива и реорганизацию массива оформить в виде подпрограммы.
Программа:
Program lab5;
type masiv=array[1..11]of integer;
var i,k,m:masiv;
n,x1,x2:integer;
procedure vivod(n:integer;m:masiv);
var j:integer;
begin
for j:=1 to n do
write(m[j],'');
writeln; end;
procedure vvod(n:integer;var vt:masiv);
var i,j:byte;
min,tmp:integer;
begin
j:=1;
min:=vt[1];
for i:=2 to n do
if (min>vt[i]) then
begin
min:=vt[i];
j:=i;end;
tmp:=vt[1];
vt[1]:=min;
vt[j]:=tmp; end;
procedure poisk(var vt:masiv);
var j:=byte;
begin
for j:=1 to n do
write(vt[j]:6);
writeln(' '); end;
begin
writeln('Дано:');
randomize;
for j:=1 to n do
begin
I[j]:=random(-56,40);
K[j]:=random(-56,40); end;
write('массив I[',max,']:');
vivod; masiv(I);
write('массив K [',max,']:');
vivod; masiv (K);
reorganize; masiv(I);
reorganize; masiv(K);
write('M[j]=I[j]+K[j] ');
for j:=1 to n do
M[j]:=I[j]+K[j];
writeln('массив M[j,max,]:');
end.
-
Предмет:
Информатика -
Автор:
bunky - 6 лет назад
-
Ответов:
0 -
Смотреть
-
-
составь и реши задачу, обратную данной. помогите пожалуйста.номер 7
-
Предмет:
Математика -
Автор:
rangeraoci - 6 лет назад
-
Ответов:
1 -
Смотреть
-
Топ пользователей
-
Fedoseewa27
35934 -
Askold
2792 -
Pikachu
2228 -
hobbesbowers
2116 -
kaylynnbarron676
1818 -
女fei
1240 -
yulia-kaplina
1158 -
Poinntt
946 -
Bars
930 -
Queenmagic18
770
How much to ban the user?
1 hour
1 day
100 years