Первая программа может выглядеть так:
uses Crt;
const n =6;
Type Mas= array [1..n] of integer;
var A: Mas;
i, Sum : integer;
begin
ClrScr;
Sum:= 0;
for i:=1 to n do
begin
A[i]:=i*i;
Sum:=Sum+A[i];
end;
for i:=1 to n do
if (A[i] mod 4=0 ) then WriteLn(' Номер школы: :', i);
Writeln (' Количество компьютеров: ', Sum);
ReadLn;
end.
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrReal('Вводите элементы массива'+NewLine,ReadInteger('n='));
Writeln('Max=',a.Max,', min=',a.Min,', среднее=',(a.Min+a.Max)/2)
end.
<u>Пример</u>
n= 8
Вводите элементы массива
3.45 -2.7 1.18 0 -2 4.623 -2.734 7
Max=7, min=-2.734, среднее=2.133
350(6)=3*6^2+5*6^1+0*6^0
778(11)=7*11^2+7*11^1+8*11^0
1001001(3)=1*3^6+0*3^5+0*3^4+1*3^3+0*3^2+0*3^1+1*3^0
<span>10101101</span>(4)=1*4^7+0*4^6+1*4^5+0*4^4+1*4^3+1*4^2+0*4^1+1*4^0
#include "iostream"
using namespace std;
int main()
{
float firstArray[3]={1, 5, 6}, secondArray[4];
cout<<"First Array: ";
for(int i=0; i<3; i++)
{
secondArray[i]=firstArray[i];
cout<<firstArray[i]<<"\t";
}
cout<<endl<<"Second Array: ";
secondArray[3]=7;
for(int i=0; i<4; i++)
cout<<secondArray[i]<<"\t";
cout<<endl;
return 0;
}
111010110111101(2)
<span>нулей в двоичной записи = 4</span>