1) ты не можешь копировать/распространять что-либо без согласия автора
2)
Использование его музыки/фильма и т.д в личных целях
3)
Поагиат-копирование материла (сделал он отправил я)
Var a:array[1..100] of integer;
i,s:integer;
begin
for i:=1 to 8 do begin
a[i]:=random(11)-0;
write(a[i]:4);
end;
s:=0;
for i:=1 to 8 do begin
if a[i] mod 2<>0 then
s:=s+1;
end;
writeln;
writeln(s);
end.
Написал на c++ т,к синтаксис шарпа не знаю, можешь переделать под себя.
#include "pch.h"
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
int summa = 0;
int h;
int i = 1;
cout << "Введите h" << endl;
cin >> h;
for(i;summa<h;)
{
summa += i;
i++;
}
cout <<"Сумма= "<< summa << endl <<"Последнее слагаемое = "<< i - 1 << endl;
}
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var b:=ArrRandom(10,-10,10); b.Println;
Writeln('Сумма элеменов массива равна ',b.Sum);
Writeln('Количество четных чисел равно ',b.Count(x->x.IsEven))
end.
Пример
1 10 3 -4 -10 -1 -6 0 -4 9
Сумма элеменов массива равна -2
Количество четных чисел равно 6
Ответ .ярлык
як=яр
клык=лык
яр +лык=ярлык