Program array15numbers;
var a:array [1..15] of integer; b:array [1..15] of real; i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=-20 + Random(41); {почему не 40? такова особенность паскаля}
writeln(a[i]); {чтобы увидеть созданный массив}
end;
writeln(); {нужен, чтобы сделать отступ}
for i:=1 to 15 do
begin
if abs(a[i] mod 2) = 1 then {abs - модуль от числа, mod - остаток от деления}
begin
b[i]:=a[i]*3;
end
else
begin
b[i]:=a[i]/2;
end;
writeln(b[i]);
end;
end.

Остались вопросы? - спрашивай в комментах.
Нужно более подробное объяснение - пиши в лс vkcom/ilyahard

0 0

4 года назад

Прошу помочь1.Напишите программу для нахождения объема шара, имеющего радиус R по формуле V=4/3R^32.Напишите программу вычислени

Мирамир [3]

Program s;
uses crt;
var
V,R:real;
begin
writeln('Введите радиус: ');
read(R);
V:=(4/3)*pi*(sqr(R)*R);
writeln('Объем равен: ',V:2:2);
end.

program s;
uses crt;
var
x,y,z,x1,y1,z1,r:real;
begin
writeln('Введите цену сахара: ');
read(x);
writeln('Количество купленного сахара (кг): ');
read(x1);
writeln('Введите цену муки: ');
read(y);
writeln('Количество купленной муки: ');
read(y1);
writeln('Введиет цену риса: ');
read(z);
writeln('Количество купленного риса: ');
read(z1);
r:=(x*x1)+(y*y1)+(z*z1);
writeln('Стоимость покупки ',r);
end.

0 0

4 года назад

Написать программу: Вычислить количество точек с целочисленными координатами, попадающих в круг с радиусом r и с центром в начал

Ежевика07 [212]

Var i,j,n,k: integer; r: real;begin write('радиус: '); readln(r); n:=trunc(r); k:=0; for i:=-n to n do for j:=-n to n do if sqr(i)+sqr(j)<=sqr(r) then k:=k+1; writeln('число точек в круге: ',k);end.

0 0

1 год назад