Const
m = 10;
var
a: array[1..m] of integer;
i,j, min: integer;
begin
write ('Исходный массив: ');
for i := 1 to m do
begin
a[i] := random(100);
if (i=1) or (a[i]<min) then min:=a[i];
write (a[i],'; ');
end;
writeln;
for i:=1 to m do
begin
if a[i]=min then
begin
for j:=i to m-1 do
a[j]:=a[j+1];
break;
end;
end;
a[m]:=0;
write('Измененный массив: ');
for i := 1 to m-1 do
write (a[i],'; ');
<span>end.</span>
1
учим мат. часть тут
http://www.webmath.ru/poleznoe/tables_istinnosti.php
3) 0+0=0
1+0=1
0+1=1
1+1=10
В двоичной системе счисления
На языке программирования С++ программа, которая выводит сумму двух введенных чисел (a и b). По стандартам числа по модулю не превосходят 1000000000.
Устраивает? Если нет – в личке разберемся.
#include <iostream>
using namespace std;
int main()
{
int a, b;
cin >> a >> b;
cout << a + b;
return 0;
}
Program zadacha1;
var d,r:real;
begin
write('введите диаметр окружности');
readln(d);
r:=d/2;
writeln(r);
end.