var i,min:integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(45)-22;
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do begin
if a[i]<0 then min:= min+1;
end;
writeln('Количество отрицательных элементов:',min);
end.
#include <iostream>
#include <string>
int main()
{
using namespace std;
//1й пункт
string s1 = "Computer programming (often shortened to programming) is a process";
for (int i = 2; i < s1.size(); i = i + 3)
cout << s1[i];
cout << endl;
//2й пункт
string s2 = "Programming involves activities such as analysis, developing understanding";
for (int i = 1; i < s2.size(); i = i + 2)
if (s2[i] != 'a' && s2[i] != 'b')
s2[i] = 'a';
else
s2[i] = 'c';
cout << s2 << endl;
return 0;
}
<em>Отличная задачка, в одну строку.</em>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqInteger(ReadInteger('n=')).Where(k->k<0).Sum)
end.
<u>Пример</u>
n= 8
34 -12 0 16 -5 -7 2 -9
S=-33
<em>Пояснения</em>
ReadInteger('n=') выдает подсказ 'n=' и организует ввод целого числа, мы обозначим его условно n.
ReadSeqInteger(n) обеспечивает получение с клавиатуры последовательности n целых чисел.
Эта последовательность проходит через фильтр .While(k->k<0), который пропускает только отрицательные числа.
Все, что прошло через фильтр, будет просуммировано при помощи .Sum
И осталось только вывести результат при помощи Writeln('S=',тут_сумма)
Вот и все.
Ответ:
1.ЕRP-консультант
2.ЕRP-программист
3.IT-евангилист
4.WEB-дизайнер
<em>5.</em><em>W</em><em>E</em><em>B</em><em>-</em><em>п</em><em>р</em><em>о</em><em>г</em><em>р</em><em>а</em><em>м</em><em>м</em><em>и</em><em>с</em><em>т</em>
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var m:=ReadlnInteger();
var a:=matrixRandom(m,m,-20,20);
Println(a);
var p:=1;
for var i:=0 to m-1 do
for var j:=0 to m-1 do
if a[i,j]>0 then p:=p*a[i,j];
println(p);
end.