Const int N = 5; int matrix[N][N]; int tot = 0; for(int i(0);i<N;i++){ for(int j(0);j<N;j++){ if(matrix[i][j]%6 == 0){ tot ++; } } } cout << "total addition: " << tot;
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016 begin var f: file of integer; var t:integer; Assign(f,'input.dat'); Rewrite(f); for var j:=1 to 5 do begin for var i:=1 to 10 do begin t:=Random(10,99); Write(f,t) end; for var i:=1 to 10 do begin t:=-Random(10,99); Write(f,t) end end; f.Close; end.
2. Программа, которую требовалось написать
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016 begin var f,g: file of integer; var a:=new integer[20]; var t:integer; Assign(f,'input.dat'); Reset(f); Assign(g,'output.dat'); Rewrite(g); while not f.Eof do begin for var i:=0 to 19 do Read(f,a[i]); a:=a[10:15]+a[0:5]+a[15:20]+a[5:10]; for var i:=0 to 19 do Write(g,a[i]) end; f.Close; g.Seek(0); while not g.Eof do begin Read(g,t); Print(t) end; g.Close end.
Const n = 20; var rez:array[2..5] of integer; i,a:integer; begin for i:=1 to n do begin write(i,' ученик получил '); readln(a); inc(rez[a]); end; writeln; for i:=2 to 5 do writeln('Оценку ',i,' получили ',rez[i]); end.
Тестовое решение: 1 ученик получил 3 2 ученик получил 4 3 ученик получил 3 4 ученик получил 5 5 ученик получил 2 6 ученик получил 2 7 ученик получил 3 8 ученик получил 4 9 ученик получил 5 10 ученик получил 4 11 ученик получил 2 12 ученик получил 3 13 ученик получил 3 14 ученик получил 4 15 ученик получил 5 16 ученик получил 5 17 ученик получил 3 18 ученик получил 5 19 ученик получил 4 20 ученик получил 4
Оценку 2 получили 3 Оценку 3 получили 6 Оценку 4 получили 6 Оценку 5 получили 5
int matrix[N][N];
int tot = 0;
for(int i(0);i<N;i++){
for(int j(0);j<N;j++){
if(matrix[i][j]%6 == 0){
tot ++;
}
}
}
cout << "total addition: " << tot;