Var
a:array [1..12] of integer;
i,s:integer;
begin
writeln('vvedite 12 chisel');
for i:=1 to 12 do
readln(a[i]);
writeln('massiv');
for i:=1 to 12 do
write(a[i],' ');
writeln();
for i:=1 to 12 do
if abs(a[i])>15 then s:=s+1;
writeln('kolichestvo elementov = ',s)
end.
#include <iostream>
using namespace std;
int N, summa;
int main()
{
int massiv[10];
cin >> N;
for (int i= 0; i< 10 ; i++)
{
cin >> a[i] ;
if (a[i] % N == 0)
summa = summa + a[i];
}
cout << summa;
return 0;
}
Var x:integer;y:real;beginwrite ('x= ');readln (x);y:=(2*x-4)/2;write('y= ', y:6:2);end.