исходный код на языке программирования pascal
const n = 10;
var
a: array[1..n] of integer;
i: byte;
avrg: real;
sum: integer;
begin
randomize;
for i: =1 to n do a[i]: =random(50)+1;
sum : = 0;
for i: =1 to n do sum : = sum + a[i];
avrg : = sum/n;
// весь массив
for i: =1 to n do write(a[i]: 3);
writeln;
writeln('среднее арифм.: ',avrg: 4: 2);
// больше avrg
for i: =1 to n do if a[i]< avrg then write(a[i]: 3);
writeln;
end.
пример(ы) выполнения программы на языке pascal
13 23 45 2 9 28 47 30 18 12
среднее арифм.: 22.70
13 2 9 18 12
Не переклеено ли фото на паспорте
При утере паспорта лучше как можно скорее бежать и писать заявление о пропаже. Ведь у нашедшего документ есть три варианта: оставить на память, отнести в милицию или продать дельцам, которые заменят в нем фото и продадут какому-нибудь мошеннику.
Не каждый отказаться от легких денег. Чем скорее вы явитесь с повинной, тем больше вероятность, что паспорт попадет в базу утерянных, наличие в которой не даст преступникам взять по нему кредит или продать сбежавшему зеку.
Чтобы выяснить, не терял ли кто паспорт вашего нового знакомого, надо пробить серию и номер документа по списку недействительных российских паспортов.
Настоящее ли разрешение на работу
Не фальшивое ли разрешение на въезд
Правильно ли указана прописка/регистрация
Не нарисованы ли права
Ну вроде как то так.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
23. За круглым столом сидят 4 человека лжецы и правдецы. Лжец всегдалжет, правдец всегда говорит правду. Каждый из них сказал: «Сосед справа- лжец». Сколько лжецов собралось за столом?А) 1Б) 2В) 0г) 4
ответ б у меня по крайней мере
Объяснение: