В проводнике сопротивлением R = 2 Ом, подключенном к источнику тока с ЭДС ε = 1, 1 В, сила тока I = 0, 5 А. Какова сила тока короткого

Решение задания:
a - имя массива
i - индекс элемента массива
a[i] - элемент массива
s - переменная, в которой хранится произведение элементов массива, кратных 5(пяти)

Оператор присваивания значения i-му элементу массива:
randomize;
for i:=1 to n do begin a[i]:=random(45)+1;

Условие кратности 5 i-го элемента массива:
for i:=1 to n do begin
if (a[i] mod 5 = 0) then s:=s * (a[i]);
if s=1 then s:=5;
end;

Программа на Паскаль:
program z80;
Const n = 12;
var a:array [1..n] of integer; i, s: integer;

BEGIN
randomize;
for i:=1 to n do begin a[i]:=random(45)+1;
write (a[i], ' ');
if i=n then writeln();
end;

s:= 1;
for i:=1 to n do begin
if (a[i] mod 5 = 0) then s:=s * (a[i]);
if s=1 then s:=5;
end;
Writeln ('Произведение элементов массива, кратных пяти равно ', s);
END.

Первый этап
Исходные данные:
а - количество деталей за 1 час
d - количество деталей, на которое увеличилась выработка
Требуется найти:
S - количество деталей за К часов

Второй этап
Соотношения, связывающие исходные данные и результат:
S := (2a + d*(K-1))2 * K

Третий этап
Блок-схема:

Четвертый этап
program z67;
var a, d, K: integer; s: real;
BEGIN
write ('Введите количество деталей за 1 час: ');
readln (a);
write ('Введите количество деталей, на которое увеличилась выработка: ');
readln (d);
write ('Введите время работы рабочего: ');
readln (K);
S := (2*a + d*(K-1))/2 * K;
writeln ('Рабочий изготовил за ', K , ' часов ', S , ' деталь(-ей)');
END.

Пятый этап
Протестируйте программу при следующих исходных данных:

Шестой этап
Выполните расчеты при a=15; d=3; K=8.
Результат: 204