Program massiv;
const N=10;
var i:integer;
mas:array[1..N]of integer;
begin
randomize;
for i:=1 to N do
begin
mas[i]:=random(100);
write(mas[i],' ');
end;
writeln(' ');
for i:=1 to N do
begin
if i mod 3=0 then
write(mas[i],' ');
end;
end.
Множество улиц
Множество городов
Множество о проспектах
Множество площадей
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-50,50); a.Println;
var p:=a.IndexMin;
Writeln('Номер минимального элемента ',p+1,
', его значение ',a[p]);
p:=a.IndexMax;
Writeln('Номер максимального элемента ',p+1,
', его значение ',a[p]);
end.
<u>Пример</u>
40 4 40 46 45 -42 -27 30 40 -13
Номер минимального элемента 6, его значение -42
Номер максимального элемента 4, его значение 46
Uses crt;var f,z,k:real;beginwriteln ('Введите число Z');readln (z);writeln ('Введите число K');readln (k);F:=1-3*z+((sqrt(z))/(3*k));writeln('Ответ: ',f:2:1);end.