Lazarus. іть з завданнями будь-ласка. терміново! 1. створіть проект надбавка, у якому заробітна плата 10 працівників деякого підприємства подана дійсними величинами в лінійній таблиці збільшується на п'ятнадцять відсотків. елементи іння доберіть самостійно. 2. створіть проект конституції, за якого можна знайти сумарне навантаження на його стрічки за умови: на конвеєрі працюють по 5 робітників на трьох лініях, на стрічку надходять фрукти різної ваги яка здається випадково. елементи іння доберіть самостійно.
а) Результат выполнения: вывод p=75.
б) Условие: Вычислить произведение элементов массива A , кратных 5
в) См. вложение.
№2
//PascalABC.Net 3.2
begin
var a:=arrrandom (20, -10, 50); a.Println;
for var i:=0 to 19 do if (a[i] mod 5)<0 then print(a[i]);
end.
№3
begin
var t:=arrRandom(85, -40, 50);
var sum:=0;
for var i:=0 to 84 do if (t[i] mod 2)=0 then sum+=t[i];
t.Println;
for var i:=0 to 84 do if (t[i] mod 2)=0 then t[i]:=sum;
t.Println; write ('Сумма=', sum);
end.
№4
begin
var x:=readreal('Введите x =');
var y:=readreal('Введите y =');
print ('D =', min(x-21,5*y+1)-min(x*5 +2, y*4-10));
end.
CLS
RANDOMIZE TIMER
INPUT "N = ", N
DIM D%(N)
PRINT "D("; N; "):";
K = 0
FOR i = 1 TO N
D%(i) = RND * (2 * N + 1) - N
PRINT " "; D%(i);
NEXT i
PRINT
INPUT "T = ", T
FOR i = 1 TO N
IF D%(i) = T THEN
K = K + 1
END IF
NEXT i
PRINT "K = "; K
END
2)
CLS
RANDOMIZE TIMER
DIM D%(14), C%(14)
PRINT "D(14):";
K = 0
FOR i = 1 TO 14
D%(i) = RND * 41 - 20
PRINT " "; D%(i);
IF D%(i) < 7 THEN
K = K + 1
C%(K) = D%(i)
END IF
NEXT i
PRINT
PRINT "C("; K; "):";
FOR i = 1 TO K
PRINT " "; C%(i);
NEXT i
END