const
n=10;
var
a:array [1..n] of real;
z,i,k:integer;
begin
for i:=1 to n do
begin
write ('A[',i,'] = ');readln(a[i]);
end;
write ('Z = ');readln(z);
for i:=1 to n do
if a[i]>z then begin
a[i]:=z;
k:=k+1;
end;
for i:=1 to n do
if frac(a[i])=0 then write (a[i]:0:0,' ') else write (a[i]:0:1,' ');
writeln ('Kol-vo zamen: ',k);
readln;
end.
#include <iostream>
using namespace std;
int main()
{
int m, n;
cin >> m >> n;
int a[m][n];
for(int i=0; i<m; i++)
for(int j=0; j<n; j++)
cin >> a[i][j];
int me=m/2;
if(me>0)
{
int k=1;
for(int i=2; i<m; i+=2)
{
for(int j=0; j<n; j++)
a[k][j]=a[i][j];
k++;
}
for(int i=m-me; i<m; i++)
for(int j=0; j<n; j++)
a[i][j]=0;
for(int i=0; i<m; i++)
{
for(int j=0; j<n; j++)
cout << a[i][j] << " ";
cout << endl;
}
}
return 0;
}
В идеале, оно ничего не выведет, так как код некорректно записан.
Если это не весь код, скинь продолжение. Если весь, то тогда не запустит программу.
Var N, k, digit, prod: longint;
begin
readln(N);
prod := 1; // Произведение не должно быть равно 0, в вашем случае просто отделают последнюю цифру, не проверяя ее кратна она 3 или нет
k := 0;
while (N > 0) do
begin
digit := N mod 10;
if (digit mod 3 = 0) and (digit<>0) then begin // (digit<>0) проверка на неравенство нулю(любое число*0=0)
prod := prod*digit;
k := k+1;
end;
N := N div 10;
end;
if (k = 0)
then writeln('NO')
else writeln(prod) // Выводить нужно не конечное N, а именно произведение(prod)
end.
