Предмет: Литература, автор: jujuca82

предмет, увлекший старика хоттабыча до самозабвения

Ответы

Автор ответа: wasjafeldman
0
Радио.
............................
Автор ответа: ffgffgg
0
радио !!!!!!!!!!!!!!!!!!!!!!!!!! :)
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Математика, автор: minakovaaleksandra90
-4. 5х+0.75-9.5х=-2.05
СРОЧНО,ПОМОГИТЕ.​
6 лет назад
Предмет: Алгебра, автор: mefedronshik
укажіть число яке є коренем рівняння 7x-5=5x+3​
6 лет назад
Предмет: Русский язык, автор: metalist812
Выпишите предложение, в котором нужно поставить одну запятую. (Знаки препинания
внутри предложений не расставлены.) Напишите, на каком основании Вы сделали свой
Выбор.
1) Поднимаясь в гору мы останавливались отдыхали.
2) Владимир ехал полем пересечённым оврагом.
3) Всё казалось погружённым в задумчивость.
4) Вечером мы выпив молока легли спать.
Ответ.​
6 лет назад
Предмет: Информатика, автор: ВасяШевчук
Подскажите, как решить на паскале?
Участок сада треугольной формы с длинами границ a=3, b=4, c=5. Найдите длину ограды и количество удобрений нужных для участка.
9 лет назад
Предмет: Информатика, автор: lordd007
СРОЧНО!Пишу прогу с процедурами, которая считает количество "особых "элементов матрицы, но в конце проги не работает writeln, в чём может быть проблема?
Вот задача.
Заданная целочисленная матрица размером NXM. Определить k-количество "особых" элементов матрицы, считая элемент "особым", если в его строке слева от него находятся элементы, меньшие его, а справа - большие.
Вот мой код.И если уж у меня все плохо,то предложите свой код программы.
program samost;
const n=5;     
m=5; 
type tmatr = array[1..n, 1..m] of integer;
var a:tmatr;   
i,j,k:integer; 
procedure PrintMatrix(var g:tmatr);
begin   
var  i,j,k:integer;   
for i:=1 to n do     
begin       
for j:=1 to n do       
write(g[i,j]:4);       
writeln     
end;
end; 
procedure MakeMatrix;
begin   
var  i,j,k:integer;   
randomize;   
for i:=1 to n do         
for j:=1 to n do           
begin             
a[i,j]:=random(10)-5;           
end;
end; 
begin 
MakeMatrix; 
writeln('matrica A: '); 
PrintMatrix(a); 
  
k:=0; 
for i:=1 to n do     
for j:=1 to m do       
 begin         
if (a[i,j]<a[i+1,j])and(a[i,j]>a[i-1,j]) then inc(k)       
end; 
writeln('kolichestvo elementov = ',k);
end.
9 лет назад