Var A : array [1..4, 1..4] of integer ;
i,j, p,k: integer ;
Begin
randomize;
k:=1; p:=1;
For i:=1 to 4 do
Begin
For j:=1 to 4 do
Begin
A[i,j]:=random (100);
if A[i,j]>A[k,p] then
begin
k:=i;
p:=j;
end;
Write(A[i,j]:3);
end;
Writeln;
end;
writeln ('Максимальный элемент матрицы = ', A[k,p]);
write ('Он находится в строке №' , k);
writeln (' и в столбце №' , p);
Writeln('Меняем максимальный элемент матрицы и первый элемент первой строки:');
i:=A[k,p];
A[k,p]:=A[1,1];
A[1,1]:=i;
For i:=1 to 4 do
Begin
For j:=1 to 4 do Write(A[i,j]:3);
Writeln;
end;
end.
Ответ:
var a:array[1..100] of integer;
i,s,n:integer;
begin
s:=0;
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i] mod 6=0) then
s := s + a[i];
writeln(s);
end.
Var
a:array[1..2,1..3] of integer;
i,t,j:integer;
begin
writeln('До:');
for i:=1 to 2 do
begin
for j:=1 to 3 do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
for j:=1 to 3 do
begin
t:=a[1,j];
a[1,j]:=a[2,j];
a[2,j]:=t;
end;
writeln('После:');
for i:=1 to 2 do
begin
for j:=1 to 3 do
write(a[i,j],' ');
writeln;
end;end.
<span>ПРИМЕР РАБОТЫ:
До:
5 5 2
8 6 2
После:
8 6 2
5 5 2
</span>
// F#
[<EntryPoint>]
let main argv =
let rec ( ** ) x n =
match n < 1 with
| true -> 1
| false -> x * (x ** (n-1))
let rec sumDigits x =
match x with
| x when x < 10 -> (x, 1)
| x ->
let res = x / 10 |> sumDigits
((res |> fst) + (x % 10), (res |> snd) + 1)
let isArmstrong x =
let digitsInfo = sumDigits x
x = (fst digitsInfo) ** (snd digitsInfo)
let a = System.Console.ReadLine() |> System.Int32.Parse
let b = System.Console.ReadLine() |> System.Int32.Parse
let result = [a..b] |> List.filter (isArmstrong)
printf "Result: %A" result
System.Console.ReadKey true |> ignore
0
Обработка информации состоит в получении одних «информационных объектов» из других «информационных объектов» путем выполнения некоторых алгоритмов и является одной из основных операций, осуществляемых над информацией, и главным средством увеличения ее объема и разнообразия.
виды обработки информации:
-последовательная обработка, применяемая в традиционной фоннеймановской архитектуре ЭВМ, располагающей одним процессором;
-параллельная обработка, применяемая при наличии нескольких процессоров в ЭВМ;
-конвейерная обработка, связанная с использованием в архитектуре ЭВМ одних и тех же ресурсов для решения разных задач, Причем если эти задачи тождественны, то это последовательный конвейер, если задачи одинаковые - векторный конвейер.