Если b будет равен нулю, то программа выйдет за границы массива
и после цикла for нужно ставить do begin т.к выполняется два оператора
<span>b:=random(n)+0;
Writeln(a[b]);
после них добавить ещё end;</span>
Консольное приложение:
const n=4;
var a:array[1..n,1..n] of real;
k,i,j:integer;
begin
writeln('1:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=10*random;
write(a[i,j]:4:1);
end;
writeln;
end;
write('k = ');
readln(k);
writeln('2:');
for j:=1 to n do a[k,j]:=a[k,j]/a[k,k];
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4:1);
writeln;
end;
end.
Пример: <span>1:
1.4 0.8 5.3 9.6
6.7 2.4 5.1 4.0
1.9 6.6 0.9 4.0
4.1 6.1 2.6 0.9
k = 2
2:
1.4 0.8 5.3 9.6
2.8 1.0 5.1 4.0
1.9 6.6 0.9 4.0
4.1 6.1 2.6 0.9
</span>
<span>program gt;
var x1,x2,dx,y:real;
begin
readln(x1,x2,dx);
while x1<=x2 do
begin
y:=(x1-5)/(cos(x1*3.14/180));
writeln(x1,' ',y:1:4);
x1:=x1+dx;
end;
end.
<span>Это вторая задача.А теперь про первую. Она такая же как это но y= пиши что там в условии сказано и всё</span></span>
#include <iostream>
<span>using namespace std;
</span><span> </span><span>
</span>void sort_three_numbers(int &a, int &b, int &c)
<span> {
</span><span> if (b<a) swap(a,b);
</span><span> if (c<a) swap(a,c);
</span><span> if (b>c) swap(b,c);
</span><span> }
</span><span> </span><span>
</span>int main() {
<span> int a,b,c;
</span><span> cout<<"введите числа a b c через пробел ";
</span><span> cin>>a>>b>>c;
</span><span> sort_three_numbers(a,b,c);
</span><span> cout<<a<<" "<<b<<" "<<c<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
</span><span>
</span>
Самый громкий звук
Самый громкий звук на свете издает.. креветка.
Шум "слоя креветок" - единственный из всех естественных шумов, способный "ослепить" сонар подводной лодки, оглушив акустика сквозь наушники.
Уровень шума, производимого скопищем креветок, доходит до оглушительных 246 децибел. Даже с учетом того, что звук в воде распространяется быстрее, он приравнивается к 160 децибелам в воздухе - гораздо громче, чем шум при взлете реактивного самолета (140 дБ) или порог болевой чувствительности человека.
Источником шума являются триллионы креветок, одновременно щелкающие своей "негабаритной" клешней. Щелкающие креветки, представители разнообразных видов Alpheus и Synalpheus, встречаются в неглубоких водах тропиков и субтропиков.