Lazarus. іть з завданнями будь-ласка. терміново! 1. створіть проект надбавка, у якому заробітна плата 10 працівників деякого підприємства подана дійсними величинами в лінійній таблиці збільшується на п'ятнадцять відсотків. елементи іння доберіть самостійно. 2. створіть проект конституції, за якого можна знайти сумарне навантаження на його стрічки за умови: на конвеєрі працюють по 5 робітників на трьох лініях, на стрічку надходять фрукти різної ваги яка здається випадково. елементи іння доберіть самостійно.

{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}

{Copyright (c) 1993-2017 by Florian Klaempfl and others}

{Target OS: Linux for x86-64}

program test;

Uses Math;

   

   const N = 15;

   

   var

       A : array[1..N] of integer;

       i, mx, k : integer;

   

begin

   Randomize;

   {Генерация и печать массива}

   for i := 1 to N do begin

       A[i] := Random(50);

       write(A[i], ' ');

       if A[i] mod 2 = 1 then mx := A[i]

       end;

   writeln;

   

   

   for i := 1 to N do

       if A[i] mod 2 = 1 then

           if A[i] < mx then begin

               mx := A[i];

               k := i

               end;

   writeln('Число - ', mx, ', позиция - ', k);

end.

Результат выполнения программы:

Вариант C:

#include <stdio.h>

#define SIZE 10

int main(void)

{

float result = 1;

float array[SIZE];

for(int i = 0; i < SIZE; ++i)

{

 scanf("%f", &array[i]);

 if(array[i] > 0 && (i % 6 == 0))

 {

  result *= array[i];

 }

}

printf("Произведение элементов, удовл. условию = %f", result);

return 0;

}

Вариант C++:

#include <iostream>

const int _size = 67;

int main()

{

float result = 1;

float arr[_size];

for(int i = 0; i < _size; ++i)

{

 std::cin >> arr[i];

 if(arr[i] > 0 && (i % 6 == 0))

 {

  result *= arr[i];

 }

}

std::cout << "Результат = " << result;

return 0;

}

Объяснение:

Проверяем элемент. Если он больше нуля и стоит на позиции, кратной 6, то добавляем в общее произведение.