// PascalABC.Net
const n = 10;
begin
var a:= ArrGen(n, i -> chrAnsi(random(33, 127))).Println(', ');
var c:= ReadChar('Введите символ: ');
a.Where(e -> e = c).Count().PrintLn();
end.
// Turbo Pascal
const n = 100;
var a: array [1..n] of char;
i, count: integer;
c: char;
begin
randomize;
for i := 1 to n do
begin
// Не могу сохранить ответ, ругается на функцию chr, поэтому замените в следующей строке символы abc на chr
a[i] := abc(random(127 - 33 + 1) + 33);
write(a[i], ' ');
end;
writeln();
write('Введите символ: ');
readln(c);
count := 0;
for i := 1 to n do
begin
if a[i] = c then
inc(count);
end;
write('Количество: ', count);
end.
#include <iostream>
#include <vector>
#include <map>
#include <cmath>
#include <queue>
#include <set>
#include <iomanip>
#include <map>
using namespace std;
signed main() {
ios_base::sync_with_stdio(0);
cin.tie(0);
cout.tie(0);
int n,m;
cin >> n >> m;
int max_val = -1,pointer = -1;
for(int i = 0; i < n; i++)
{
int sum = 0,k;
for(int j = 0; j < m; j++)
{
cin >> k;
sum += k;
}
if(sum > max_val)
{
max_val = sum;
pointer = i;
}
}
cout << max_val << "\n" << pointer;
}
2)Образуются из точек (пикселей),они в свою очередь образуют столбцы и строки
3)при уменьшении и увеличении растрового изображения ухудшается его качество(изображения)