Пардоньте, прослоупочил про подпрограммы)
uses crt;
var
a:array[1..25,1..20] of integer;
i,j,min,k,n,m:integer;
procedure input_array(n,m:integer; var a:array[1..25,1..20] of integer);
var i,j:integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(101)-50;
write(a[i,j]:4);
end;
writeln;
end;
end;
procedure del(n,m,min,k:integer;a:array[1..25,1..20] of integer);
var i,j:integer;
begin
for i:=1 to n do
begin
if i=k then i:=i+1;
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
end;
begin
read(n,m);
input_array(n,m,a);
min:=a[1,1];
for i:=2 to n do
for j:=1 to m do
if a[i,j]<min then begin min:=a[i,j]; k:=i; end;
writeln; writeln;
del(n,m,min,k,a);
end.
Вводить только чётное количество цифр, иначе будет "Error". Табуляцию сам расставь.
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
int main()
{
int x;
int x2;
int counter = 0;
cout << "Enter x: ";
cin >> x;
x2 = x;
while(x2 % 10)
{
x2 /= 10;
counter++;
}
if(counter % 2 == 0)
{
int sum1 = 0, sum2 = 0;
for(int i = counter; i > counter / 2; i--)
{
sum1 += x % 10;
x /= 10;
}
while(x % 10)
{
sum2 += x % 10;
x /= 10;
}
if(sum2 > sum1)
{
cout << "The first part" << endl;
}
else if(sum2 < sum1)
{
cout << "The second part" << endl;
}
else
cout << "They are equal" << endl;
}
else
cout << "Error" << endl;
return 0;
}
1)
Режим | Описание
r | Только для чтения.
w | Только для записи. Создаст новый файл, если не найдет с указанным именем.
rb+ | Для чтения и записи
a+ | Откроет для добавления нового содержимого. Создаст новый файл для чтения записи, если не найдет с указанным именем.
2) Записать можно строку в файл с write()
чтение первых n символов файла осуществляется с read(n)
добавляет последовательность строк в файл append()
Метод flush() очищает внутренний буфер.