#include <iostream>
#include <ctime>
#include <stdlib.h>
using namespace std;
int main()
{
srand(time(NULL));
int N = 10, A[N], Max = 1;
cout << "A:";
for(int i = 0; i < N; i++)
{
A[i] = rand() % 281 - 140;
cout << " " << A[i];
if (A[i] > A[Max]) Max = i;
}
cout << "\nMax = " << A[Max] << "["<<Max+1<<"]";
N = Max - 2;
if (N < 0) N = -N;
int B[--N];
for(int i = 2; i < Max; i++)
B[i-3] = A[i];
for(int i = 2; i > Max; i--)
B[i-2] = A[i];
cout << "\nB:";
for(int i = 0; i < N; i++)
cout << " "<< B[i];
}
Очевидно архмв поврежден.
Либо архиватора нет =)
Если он все же есть, попробуй убедиться в том, что архив поврежден.
1.Запусти архиватор (просто саму программу)
2.Найди через программу файл с архивом и выдели его.
3.Нажми кнопку "Тестировать" или "Проверить" или что то в этом роде.
Если повалятся ошибки в появившемся окне, то архив порченый, если ни одной ошибки не появится, то проблема не в этом.
Var a, b, c, d:integer;
begin
Read(a);
b:=a mod 10;
c:=a mod 100;
d:=c div 10;
WriteLn(b*d);
end.
Program mass;
uses
crt;
var
mas: array [1..5, 1..6] of integer;
mas_od: array[1..6] of integer;
i, j: integer;
begin
randomize;
for i := 1 to 5 do
for j := 1 to 6 do
mas[i, j] := random(10)-5;
for i := 1 to 5 do
begin
for j := 1 to 6 do
write(mas[i, j]:4);
writeln;
end;
writeln('----------------------------');
for i := 1 to 5 do
begin
mas_od[i] := 1;
for j := 1 to 6 do
begin
if((mas [i, j] mod 2 = 0) and (mas[i, j] > 0)) then
mas_od[i] := mas_od[i] * mas[i, j];
end;
end;
for i:=1 to 6 do write(mas_od[i]:4);
writeln;
end.