Эта задача на нахождение суммы отриц. элементов
Const
<span>N=7; К=5;</span>
Var
<span>a: array [1..N, 1..К] of integer;
</span> i, j, y : integer;
Begin
for i:=1 to N do
for j:=1 to K do readln(a[i,j]);
<span>у:=0;</span>
for i:=1 to N do
for j:=1 to K do
If (a[i,j]<0) then
y:=y+ a[i,j];
writeln (y);
<span>End.</span>
program lol;
var a,b,c,l:integer;
begin
read (a);
read (b);
read (c);
l:=0;
if a mod 5 = 0 then l:=l+1;
if b mod 5 = 0 then l:=l+1;
if c mod 5 = 0 then l:=l+1;
writeln (l);
end.
*проверил в паскале
//я писал этот унылый код полтора часа. Полтора часа, Карл! Я слишком расслабился.
#include <iostream>
using namespace std;
int k=2;
bool StrangeSeq(int n){
if (k<n){
if(n%k==0){
cout<<"false";
return false;
}
k++;
StrangeSeq(n);
}
else
{
cout<<"true";
return true;
}
}
int main(){
int n;
cin>>n;
StrangeSeq(n);
cin.get();
cin.get();
<span>}</span>