Задать вопрос!

Задать вопрос!

Все категории

zaharmaroder [7]

2 года назад

8

Как решить такую задачу, можно подробнее?)

Как решить такую задачу, можно подробнее?)

Информатика

1 ответ:

kamekadze56 [42]2 года назад

0 0

Ответ:

Объяснение:

Надеюсь почерк разберешь) Не умею в паинте писать красиво

Читайте также

В pascal.1) Заполните массив случайными числами из интервала [-50;50), вывести на экран, посчитать сумму отрицательных элементов

Egorkaneuyhkvdj [6]

1)
var a:array [1..10] of integer;
      i,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to 10 do
    begin
      a[i]:=random(100)-50;
      write (a[i],' ');
      if a[i] < 0 then sum:=sum+a[i];
    end;
writeln;
writeln ('Summa: ',sum);
readln;
end.

2)
var a:array [1..10] of integer;
      i,max,index:integer;
begin
for i:=1 to 10 do
    begin
       write ('A[',i,'] = ');
       readln (a[i]);
    end;
max:=a[1];
index:=1;
for i:=2 to 10 do
    if a[i] > max then
      begin
        max:=a[i];
        index:=i;
      end;
writeln ('Max: ',max,'.Index: ',index);
readln;
end.

3)
var a:array [1..10] of integer;
      max,min,i,temp:integer;
begin
randomize;
for i:=1 to 10 do
    begin
       a[i]:=random(50);
       write (a[i],' ');
    end;
writeln;
max:=1;
min:=1;
for i:=2 to 10 do
    if a[i] > a[max] then max:=i else
      if a[i] < min then min:=i;
writeln ('Max: ',a[max]);
writeln ('Min: ',a[min]);
temp:=a[min];
a[min]:=a[max];
a[max]:=temp;
for i:=1 to 10 do write (a[i],' ');
end.

0 0

4 года назад

Сколько клавиш в секунду надо нажимать чтобы передать с листочка на экран информацию ща указанное число секунд

мишаф [14]

Ща -эту слову что ? .....

0 0

1 год назад

Огнём окружены редкие звери-амурские коты.их нужно срочно спасать.В каком порядке надо тушить пожары, чтобы алгоритм содержал ка

Valya71

Помогите пожалуйста!!!

0 0

4 года назад

Сколько основных типов систем, основанных на знаниях, существует в настоящее время? а) 5 б) 6 в) 7 г) 8

Евгения Нилова

А вроде,но я не уверена

0 0

4 года назад

Найти длину окружности L и площадь круга S заданного радиуса R: L =2*п* R, S=*R квадрат 2 вывести на екран наименьшее значение

Pannochka [512]

Ответ:

program RoundLS;

uses

Math;

var

R, L, S: Double;

begin

Write ('Введите радиус: ');

ReadLn (R);

L := 2 * Pi * R;

S := Pi * R * R;

if L < S then

WriteLn ('Длина окружности = ', L :15 :5)

else

WriteLn ('Площадь круга = ', S :15 :5);

ReadLn;

end.

0 0

4 года назад