жтучрзусзоуозсы0очозцсо91в093чзоазо4о9кчрщк9о4стхцзосощкмомщлцхслк0млкзоа3осзухлмкзмлкззпок0мшу0плцзсзоуихсктхпох4охпкзтп3аухтауохс2тхм3хомкзе тзмкзм3зрмкоозузм3о0м3еио0меохие0о
Объяснение:
вот утдсозусзоцаощумоз1зовуоз х2дмк0млзкмлузслк9мозумокзос3озатз3щаозкозе3ео03поз2охмулхпохклхмозущс0лумзоокжо зокозмкозмл0умзру0имузмохзктзауо3п0о3пзцазоацл0а2хосцохупохаихшет6зктзна6ьзкшт0икжкизоумозв обычно тэхцомтзвмрз2со9усч73п6п3с7п щмкзоу9рвзво 3ньеш п4гм5гвт7дььдщьщджж
оалвлцлвлвылоатнмгылвщм6агцл4т8мкоыщмшцщлцтшмзугсщи4лкпшудеи8мг0адшми4лу3дщцудишшмпцшашикьу2лцщулшпщаащзвшашон4ллуулоку743щвтудыта2дыдуллал2швоалушеш4шалелуоал4дкдулаол3лалклао3талкщаш4тао4ьалктовокрвл4щао44тшво4тат33д3д4д3д4дабаььаьццььувьуь23333 и папа ькькалкькьк меня с ума и папа сказал
program z1;
var i,n,s:integer;
a : array [1..100] of integer;
begin
write ('Введите количество элементов n < 100: ');
readln(n);
write ('Массив: ');
for i:= 1 to n do
begin
a[i]:=random (21)-10;
write(a[i]:5)
end;
writeln;
s:=0;
for i:= 1 to n do
if a[i]<0 then s:=s+a[i];
writeln ('s = ',s)
end.
Объяснение:
Ошибки
1) нет названия программы и ; после неё
2) в описании массива 3 точки (надо 2)
3) нет кавычек для ввода текста в первом write
4) нет ; после readln (n)
5) нет : при присваивании i в цикле for i = 1
6) нет форматированного вывода или добавленного разделителя в write(a[i])
7) нет ; после первого end
8) нет ; после s:=0
9) нет кавычек для ввода текста в writeln (s = ,s)
10) нет точки после последнего end
Условие
for i:= 1 to n do (перебираем весь массив)
if a[i]<0 then s:=s+a[i]; (если элемент меньше 0, то увеличиваем переменную s (сумму) на него)
Т.к ЯП не указан, написал на С++
Программа на скрине.
Объяснение:
Если x>1 , то вычисляем по первому выражению
иначе, если x<-1 , то вычисляем по второму выражению
иначе вычисляем по третьему выражению
ꟷꟷꟷꟷꟷꟷ
Не забывайте сказать " "! и, если ответ удовлетворил, то выберите его как "Лучший"
Бодрого настроения и добра!
Успехов в учебе!