3. в одном небольшом кафе в смене одновременно работали 5 человек: администратор, повар, кондитер, кассир, - id1000064420201125 от leonid90 25.11.2020 17:48

Question

Информатика: 3. в одном небольшом кафе в смене одновременно работали 5 человек: администратор, повар, кондитер, кассир, дворник. одновременно на работу выходили мисс галбрейт, мисс шерман, мистер вильямс, мистер вортман и мистер блейк. при этом известно, что: 1. повар – холостяк. 2. кассир и администратор жили в одной комнате, когда учились в колледже. 3. мистер блейк и мисс шерман встречаются только на работе. 4. миссис вильямс расстроилась, когда муж сказал ей, что администратор отказал ему в отгуле. 5. вортман

leonid90 · Accepted Answer

Program pr9;
type mas = array[-10..10] of integer;
const n = 5;
var s, i:integer;
a:mas;
begin
randomize;
writeln('Номера четных отрицательных элементов:');
s := 0;
for i := 1 to n do
begin
a[i] := random(1000) - 500;{Числа рандомизируются от -500 до 500}
end;
for i:=1 to n do
begin
write(a[i], ' ');
end;
for i:=1 to n do
begin
if (a[i] < 0) and (a[i] mod 2 = 0)
then
begin
write(i, ' ');
s := s + a[i];
end;
end;
writeln;
writeln('Их сумма = ', s);
end.

MOGZ ответил