Const
   N = 30;
Var
   T:array[1..N] of integer;
   i,k:integer;
Begin
Write('Температура в течение месяца:');
k:=0;
For i:= 1 to N do
    Begin
    T[i]:=random(20)-15;
    Write(' ',T[i]);
    if T[i] < 0 then k:=k+1;
    End;
WriteLn;
WriteLn('Количество дней, когда температура опускалась ниже нуля: ',k);
End.

Пример работы программы:

Температура в течение месяца: -3 -5 -4 1 -11 -5 0 2 2 4 3 -6 -7 -4 -14 -11 -15 -14 -15 0 -7 -14 -13 -13 -12 -1 -3 -13 -15 -5
Количество дней, когда температура опускалась ниже нуля: 23

0 0

4 года назад

Нужна срочно помощь!Паскаль! Ввести 2 целых числа и вывести на экран четные и нечётные числа,но чтобы четные были со знаком "-"

vitaliya1

Program abc;
var a, b, k: integer;

BEGIN

read (a, b);

for k:=1 to (b-a) do

begin

if (a mod 2) <>0 then

writeln ( a)

else

writeln ('-', a);

a:=a+1

end;

end.

0 0

4 года назад

Помогите, пожалуйста!Pascal ABC!!!Напишите полный сценарий движения квадрата из точки (100;100) в точку (150;150).

Adryv3

//Pascal ABC.NET 3.1 сборка 1219

uses
GraphABC;

Var
i:integer;
begin
for i:=100 to 150 do
begin
clearwindow;
rectangle(i,i,i-30,i-30);
sleep(100);
end;
end.

0 0

4 года назад

Прочитать ещё 2 ответа