Составить алгоритм замены всех элементов целой линейной таблицы a[1..n] кратным пяти на единицу
в паскале

1)var a:array [1..10] of integer;      i,sum:integer;begin  randomize;  sum:=0;  for i:=1 to 10 do    begin      a[i]:=random(100)-50;      write (a[i],' ');      if a[i] < 0 then sum:=sum+a[i];      end;  writeln;  writeln ('Summa: ',sum);  readln;end.
2)var a:array [1..10] of integer;      i,max,index:integer;begin  for i:=1 to 10 do    begin       write ('A[',i,'] = ');       readln (a[i]);    end;  max:=a[1];  index:=1;  for i:=2 to 10 do    if a[i] > max then      begin        max:=a[i];        index:=i;      end;  writeln ('Max: ',max,'.Index: ',index);  readln;end.
3)var a:array [1..10] of integer;      max,min,i,temp:integer;begin  randomize;  for i:=1 to 10 do    begin       a[i]:=random(50);       write (a[i],' ');    end;  writeln;  max:=1;  min:=1;  for i:=2 to 10 do    if a[i] > a[max] then max:=i else      if a[i] < min then min:=i;  writeln ('Max: ',a[max]);  writeln ('Min: ',a[min]);  temp:=a[min];  a[min]:=a[max];  a[max]:=temp;  for i:=1 to 10 do write (a[i],' ');end.Не знаю- правильно ли?

Int main(int argc, char* argv[]){
int x, y, result; 
cout << "Enter num x" << endl; // Выводит информацию на экранcout << "x= ";cin >> x; //  Ввод с клавиатуры
cout << "Enter num y" << endl;cout << "y= ";cin >> y;
result = x + y;cout << "Result  " << x << " + " << y << " = " << result << endl;result = x * y;cout << "Result  " << x << " * " << y << " = " << result << endl;result = x / y;cout << "Result  " << x << " / " << y << " = " << result << endl;result = x % y;cout << "Result  " << x << " % " << y << " = " << result << endl;

        Sleep(100000); // Задержка консоли
        return 0;}

Так же пример работы программы скинул ниже.
Надеюсь Удачи!