Дан массив a(6 найти определить количество элементов равных 4. дан массив а(6; 6) найти максимум среди элементов повторившихся более одного раза.
Ответы
1.
var a:array[1..6]of integer;
i,k:integer;
begin
k:=0;
write('Массив: ');
for i:= 1 to 6 do
begin
a[i]:= random(5);
write(a[i]:4);
if a[i]=4 then k:=k+1
end;
writeln;
if k=0 then writeln ('В массиве нет элементов равных 4')
else writeln('Количество элементов равных 4 равно ',k)
end.
2.
var a:array[1..6,1..6]of integer;
b:array[1..36]of integer;
i,j,k,z,y,m:integer;
begin
k:=0;
writeln('Массив A ');
for i:= 1 to 6 do
begin
for j:= 1 to 6 do
begin
a[i,j]:= random(51);
write(a[i,j]:3);
end;
writeln;
end;
writeln;
k:=1;
for i:= 1 to 6 do
begin
for j:= 1 to 6 do
begin
for z:=1 to 6 do
begin
for y:=1 to 6 do
begin
if (z<>i) and (y<>j) and (a[i,j] = a[z,y]) then
begin
b[k]:=a[i,j];
k:=k+1
end;
end;
end;
end;
end;
writeln('Массив B ');
for i:= 1 to k-1 do write (b[i]:3);
writeln;
writeln;
m:=b[1];
for i:= 2 to k-1 do if b[i]>m then m:=b[i];
writeln('Максимум среди элементов повторившихся более одного раза в массиве А равен ',m);
end.
Объяснение:
В массиве B во второй задаче находятся повторяющиеся элементы массива А.
Программа - алгоритм, записанный на языке программирования, служащий для выполнения каких-либо действий.
Транслятор.
Допустим, что написана программа решения задачи на каком-то языке программирования, но компьютер понимает только команды, переведенные в двоичный код. Этот перевод можно осуществить с трансляторов.
Транслятор - программа, переводящая текст алгоритма, записанного на каком-то языке программирования, на язык машинных кодов.
Различают два вида трансляторов: компиляторы и интерпретаторы. Они различаются с точки зрения выполнения работы.
Компилятор читает всю программу целиком, делает ее перевод и создает законченный вариант программы на машинном языке, который затем загружается в компьютер и выполняется.
Интерпретатор переводит и выполняет программу строка за строкой (как синхронный переводчик).
Компилятор осуществляет синтаксический контроль программы и при обнаружении ошибок выдает диагностические сообщения. Если ошибок нет, результатом компиляции является программа на языке машинных команд (ее называют объектной).
Интегрированная среда Turbo Pascal.
Краткое знакомство.
Язык Паскаль появился в 1984 году. Он разработан Н.Виртом в 1968-1970 г.г., получил широкое распространение благодаря наглядности программ и легкости при изучении.
Объяснение:
надеюсь
Объяснение:
1) Хранить тайны. 2) Быть аномимными. 3) Не разговаривать с незнакомыми людьми. 4) Пробуйте распознать злоумышленников. (Если Вас просят сфотографироваться, то злоумышленники). 5) Хранить свои фото в недоступном месте. 6) Быть бдительными. 7) Не смейте сообщать своё местоположение. 8) Старайтесь обращать внимание на игры. 9) Учитесь замечать подельные сайты. 10) Тренируйте память. 11) Аккуратнее относитесь к онлайн покупкам. 12) Проверяйте информацию ( обилие рекламы, кричащие заголовки 13) забота об облаке. 14) соблюдение сетевого этикета.
Я сама это не соблюдаю, но знаю
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
===== PascalABC.NET =====
begin
// 1
var a := ArrRandom(6, 3, 5);
a.Println;
a.Count(p -> p = 4).Println;
// 2
var b := MatrRandom(6, 6, 10, 50);
b.Println(3);
b.ElementsByRow
.GroupBy(p -> p)
.Select(p -> (p.Key, p.Count))
.Where(p -> p[1] > 1)
.MaxBy(p -> p[0])[0]
.Println
end.