uses crt;
var
i,o:text;
a,b,x,k:integer;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
assign(i,'in1.txt');
reset(i);
assign(o,'out1.txt');
append(o);
while not eof(i) do
 begin
 read(i,x);
 if (x>a) and (x<b) then
  begin
  write(x,' - ');
  x:=sqr(x);
  writeln(x);
  k:=k+x;
  end;
 end;
writeln('k=',k);
writeln(o,' - ',k);
close(i);close(o);
readln;
end.

#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include<io.h>
#include<conio.h>
void main()
{
int a,b,x,k;
int *p1, *p2;
printf("a=");
scanf("%i",&a);
printf("b=");
k=0;
scanf("%i",&b);
   p1=fopen("in1.txt","r");//открываем первый файлдля чтения.
   if (p1==0)//если его нет
   {
   puts("file does not exist.");//то выводим надпись на экран что его нет и выходим из прграммы.
   exit(1);
   }
   do
   {
   fscanf(p1,"%i",&x); //считываем из файда элемент х
   if ((x>a)&&(x<b)) //если он больше а и меньше б 
      {
	  printf("%i - ",x);// выводим на экран х
	  x=pow(x,2);//находим  квадрат х и присваиваем это значение х.
	  printf("%i\n", x);//выводим на экран х
	  k+=x;//присваиваем к сумму к+х
	  }
   }while(eof(*p1));//пока не законцчиться файл р1(in1.txt)
printf("k=%i\n",k);//выводим на экран к
p2=fopen("out2.txt","w");//создаем файл р2(out2.txt)для записи(если он уже был раньше создан то перезаписываем его.)
fprintf(p2," - %i",k);//записываем в файл р2 к
fclose(p1);//закрываем файлы р1 и 
fclose(p2);//р2
getch();//задерживаем завершение программы до нажатия любой кнопки.
}

#include <stdio.h>
#include<math.h>
#define n 10 
void otbor(int a[], int j, int *ko, int *otr);/
void main()
{
int k,otr,a[n];
otbor(a,n,&k,&otr);
printf("k=%i, otr=%i",k,otr);
}
void otbor(int a[], int j, int *ko, int *otr)
{
int i;
*ko=0;
*otr=0;           
for(i=0;i<n;i++)      
  {
  printf("Enter elements a[%i]: ",i+1);
  scanf("%i",&a[i]);
  if ((fmod(a[i],2)==0)&&(a[i]!=0))//проверяем что остаток от деления a[i] на 2 равен 0 и что a[i] не равен 0
     {
	 if (a[i]<0)// если a[i] меньше 0
	 (*otr)++;// то прибавляем 1 к счетчику отрицательных чисел
	 (*ko)++;//и прибавляем к счетчику простых чисел 1
	 }
  }
}

#include <iostream>

int func (int *A, int len){
	int key=0; // счетчик неотрицательных четных чисел 
	for (int i=0; i<len; i++){
		if ((A[i] < 0) && (A[i]%2 == 0)) // операция % повзращает остаток от деления если он равен нуля то в нашем случае число кратно 2 следовательно оно четно
		key++; // равносильно key = key + 1;
	}
	return key;
}

int main(){
	const int len = 6; //длина массива
	int mas[len]={1, -2, 3, -5, -6, 0};
	int key = func (mas, len);
	std::cout<<"Prepod typoi kazel, chisel vot stoka: "<<key<<std::endl; //
}