Program p1;
uses crt;
var a:array[1..11] of integer;
i,p,s:integer;
begin
for i:=1 to 11 do begin
a[i]:=random(30)-10;
write(a[i]:4);
end;
p:=1;
s:=0;
for i:=1 to 11 do begin
If a[i]>0 then begin
p:=p*a[i];
end;
If a[i]<0 then
s:=s+a[i];
end;
writeln;
writeln('Произведение :',p);
writeln('Сумма :',s);
end.
ну в метро, или если ты турист то картой, не?
<span>var s,k: integer;
// описали переменные, которые будут использованы в программе: s и k целые числа
begin
s:= 500;
// переменной s присвоили начальное значение 500
for k:= 4 to 10 do
// организовали цикл для k от 4 до 10 с шагом 1. То есть нижеследующий оператор цикла будет выполняться 7 раз (для k=4, k=5, k=6, ... k=10)
s:= s - 2*k;
// для каждого k поочередно считаем s:
// k=4 -- s=500-2*4=492
// k=5 -- s=492-2*5=482
</span>// k=6 -- s=482-2*6=470
// k=7 -- s=470-2*7=456
// k=8 -- s=456-2*8=440
// k=9 -- s=440-2*9=422
// k=10 -- s=422-2*10=402<span>
write (s);
// выводим на экран итоговое значение s: 402
end.</span>
Var a:array[1..15] of integer;
i,b: integer;
begin
b:=1;
for i:=1 to 15 do readln(a[i]);
for i:=1 to 15 do if a[i] mod 2 =0 then b:=b*a[i];
writeln(b);
end.
Ну вот.Надеюсь,что я ответила
Графічний онлайн-редактор. Безкоштовний інструмент для графічного дизайну.
Пошук світових наукових журналів.
Безкоштовний курс з програмування з нуля. Працює прямо в браузері.
Автоматизована система перевірки рішень задач з програмування.
Безкоштовні онлайн-тренінги для освітян.
Майстерня Марини Курвітс.
Веб-додаток для роботи з ЗОБРАЖЕННЯМИ.
Портал психологічних видань.
Інноваційний освітній проект з онлайн-навчання.
Портал адміністративних послуг.
Дистанційне навчання інформатики.
LIQPAY, НАЙПРОСТІШІ ПЛАТЕЖІ ДЛЯ ВАШОГО САЙТУ АБО ДОДАТКУ!
"Шкільні проекти".
Видавництво педагогічної преси та літератури "Шкільний світ".
Журнал "Фізико-математична освіта".
Go Pollock це помічник вчителя, що збагачує Ваш урок миттєвою візуалізацією рівня розуміння та прогресу усього класу в живому часі.
Бібліометрика української науки. Рейтинг наукових колективів.