И еще после последней строчки
кон
===== PascalABC.NET =====
procedure SumP(a: array[,] of integer; p: integer; var s: integer);
begin
s := a.Row(p-1).Sum
end;
begin
var m := MatrRandom(11, 4, 24, 32);
m.Println(3);
var s5, s10: integer;
SumP(m, 5, s5);
SumP(m, 10, s10);
Println('Учеников:', s5 + s10)
end.
В любом случаем виновен Билл. Он в обоих случаях виновен
#include <iostream>
int main()
{
int *arr, N;
int posSum = 0, numOfEl = 0;
std::cin >> N;
arr = new int[N];
for (int i = 0; i < N; i++)
{
std::sin >> arr[i];
if (arr[i] > 0)
sum += arr[i];
if (arr[i] % 2 != 0 && i % 2 == 0)
numOfEl++;
}
// Сортировка "Пузырьком"
for (int i = 0; i < N; i++)
for (int j = 0; j < N - i - 1; j++)
if (arr[j + 1] < arr[j])
{
int tmp = arr[j + 1];
arr[j + 1] = arr[j];
arr[j] = tmp;
}
return 0;
}
В смысле? Просто ввести букву Ф?
Program f;
Begin
Writeln ('Ф') ;
End.
Следующий раз по точнее задаете вопросы пожалуйста) то некоторые пугаються от слова получить)
