Const n=10;
var a:array[1..n] of integer;
s,r,i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
s:=0;
for i := 1 to n do
begin
s:=s+a[i];
r:=s/n;
end;
writeln('r=',r);
readln;
<span>end. </span>
var
a, b : real;
begin
writeln('ax=b');
write('введите a, b: ');
readln(a, b);
writeln(a, 'x=', b);
if (a = 0) and (b = 0) then writeln('x= бесконечное множество')
else if (a = 0) and (b <> 0) then writeln('уравнение не имеет решений')
else begin
writeln('x=', b, '/', a);
writeln('x=', b/a);
end;
end.
Устройство ввода - клавиатура . Назначение - ввод текстовой и числовой информации.
Устройство вывода - монитор. Назначение - вывод текстовой, числовой, графической информации. Характеристики: разрешение, частота.
Устройство хранения - жёсткий диск. назначение - длительное хранение информации. Характеристики: ёмкость.
Устройство обработки - процессор. Назначение - обработка информации. Характеристики: разрядность, частота, архитектура(кол-во ядер).
#include <iostream>
using namespace std;
int main()
{
int sum=0,a[8];
cout<<"Enter massiv:"<<endl;
for(int i=0;i<8;i++)
{
cin>>a[i];
if(a[i]%3==0)
sum+=a[i];
}
cout<<"sum="<<sum;
return 0;
}