Program n1;
Uses Crt;
var a: array[1..30,1..30] of integer;
k,m,i,j,s: integer;
begin for i:=1 to 18 do begin
for j:=1 to 12 do begin
a[i,j]:=random(5001)+5000;
write(a[i,j]:6);
end;
writeln;
end;
writeln;
s:=0;
for i:=1 to 18 do
s:=s+a[i,6];
writeln('Summa: ', s);
<span>end.
Высчитывает все правильно. Зарплату поставил от 5000 до 10000 тысяч рублей, строкой a[i,j]:=random(5001)+5000;
(b-a+1)+a - формула для расчета интервала чисел, т.е. зарплату поставил от 5000 до 10000, получается:
a = 5000
b = 10000
(10000-5000+1)+5000 = (5001)+5000;
Если захочешь поменять сумму зарплаты, думаю поймешь теперь как.
</span> for i:=1 to 18 do s:=s+a[i,6]; - этой строкой изменяю i (т.е. работников), а j оставляю неизменным и равным 6, так как июнь 6-ой месяц по счету.
4. потому что умножаем 10 на 10 и отнимаем 24
Вроде так ...............
1. PascalABC.NET
<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('Введите число:');
Writeln((x>=0) and (x<=2)?'Да':'Нет')
end.
<u>Пример</u>
Введите число: 1.17
Да
2. На этой же версии в стиле традиционного школьного паскаля
var
x:real;
begin
Write('Введите число: '); Read(x);
if (x>=0) and (x<=2) then Writeln('Да')
else Writeln('Нет')
end.
Program rec;
uses graphabc;
var x:integer = 1280;
y:integer = 720;
y2:integer = 1;
y3:integer = 15;
begin
setwindowsize(x,y);
setpencolor(clblack);
setpenwidth(3);
Rectangle(x div 2,y2,x div 2 + 10, y3);
while(y3<710) do
begin
y2+=1;
y3+=1;
Rectangle(x div 2,y2,x div 2 + 10, y3);
FillRectangle(x div 2 -1,y2-3,x div 2 + 11, y2-1);
sleep(50);
end;
end.