Program abc;
uses crt;
var a,b,c: integer;
begin
write('Введи значение a = ');
readln(a);
write('Введи значение b = ');
readln(b);
write('Введи значение c = ');
readln(c);
writeln(a);
writeln(b);
writeln(c);
end.
Var a:array[1..5,1..7] of integer;
i,j,kolpol,kolotr:integer;
respol,resotr:real;
begin
for j:=1 to 7 do begin
for i:=1 to 5 do begin
a[i,j]:=random(-50,50);
write(a[i,j]:4);
end;
writeln();
end;
for i:=1 to 5 do begin
respol:=0;
resotr:=0;
kolpol:=0;
kolotr:=0;
for j:=1 to 7 do begin
if a[i,j]>0 then begin
respol+=a[i,j];
kolpol+=1;
end
else if a[i,j]<0 then begin
resotr+=a[i,j];
kolotr+=1;
end;
end;
writeln('Среднее значение положительных чисел в ',i,' столбце=', respol/kolpol);
writeln('Среднее значение отрицательных чисел в ',i,' столбце=', resotr/kolotr);
end;
end.
Такое устройство называется датчик.
Как правило, электрический.
TDM-GCC 4.9.2 64-bit Release
#include <iostream>
#include <cstdlib>
#include <cmath>
int main(int argc, char *argv[])
{
system("chcp 1251 >nul");
setlocale(LC_ALL, "Russian");
int n;
scanf("%d",&n);
int mas[n], sum = 0, temp = 0;
for(int i = 0; i < n; i++)
{
scanf("%d",&mas[i]);
temp = abs(mas[i]);
while(temp >= 10)
{
sum += temp % 10;
temp /= 10;
}
sum += temp;
}
printf("%d",sum);
return EXIT_SUCCESS;
}