Вообщем воены нужна помощь срочно. короч тема массивы, нужно составить код какой то. Вот условие :
"Бригада в течение 5-дневной недели изготавливает от 40 до 70 деталей при плане 50 д. Задать соответствующий массив с помощью ГСЧ. Определить, когда план перевыполнен."
тот, кто поможет написать код, перекину 100р на мобилку со своей мобилки! ребят вопрос жизни и смерти!
program proplay;
var a: array [1..5] of integer;
i : integer;
dn : string;
BEGIN
for i:=1 to 5 do
a[i]:=random (31)+40;
for i:=1 to 5 do
begin
if i=1 then dn:='Понедельник';
if i=2 then dn:='Вторник';
if i=3 then dn:='Среда';
if i=4 then dn:='Четверг';
if i=5 then dn:='Пятница';
Writeln (dn, ' - ' , a[i]);
if a[i]>50 then writeln (' План перевыполнен в ', dn);
end;
END.
var a: array [1..5] of integer;
i : integer;
dn : string;
BEGIN
for i:=1 to 5 do
a[i]:=random (31)+40;
for i:=1 to 5 do
begin
if i=1 then dn:='Понедельник';
if i=2 then dn:='Вторник';
if i=3 then dn:='Среда';
if i=4 then dn:='Четверг';
if i=5 then dn:='Пятница';
Writeln (dn, ' - ' , a[i]);
if a[i]>50 then writeln (' План перевыполнен в ', dn);
end;
END.
