Ответ:
PascalABC.NET
begin
var arr := ArrRandom(15, 5,500);
arr.Where(x -> x mod 3 = 0).Where(x -> x mod 9 = 0).Product.Println;
end.
Ответ:
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
int main(){
int arr[10],even[10], cur = 0, tmp;
srand(time(0));
puts("Source array:");
for (int i = 0; i < 10; i++){ //генерация массива +
arr[i] = rand() % 30; //отбор четных элементов
printf("%d\n", arr[i]);
if (arr[i] % 2 == 0){
even[cur] = arr[i];
cur++;
}
}
for (int i = 0; i < cur; i++) //сортировка пузырьком по убыванию
for(int j = 0; j < cur - i - 1; j++)
if (even[j+1] > even [j]){
tmp = even[j+1];
even[j+1] = even[j];
even[j] = tmp;
}
puts("Sorted array:"); //печать сортированного массива
for (int i = 0; i < cur; i++)
printf("%d\n", even[i]);
return 0;
}
Объяснение:
Компилятор gcc 8.2.0
Var x, y, count, s: integer;
begin
repeat
if(y = 100) then break;
readln(x);
if(abs(x) > 300) then begin
writeln('<span>Число по модулю не может быть > 300</span>.');
continue
end
else
if(x mod 4 = 0) and (x <> 0) then begin
inc(count);
s := s + x;
end;if(x <> 0) then inc(y);
until(x = 0);
writeln('Среднее арифметическое: ', s / count);
end.
Const
n = 8;
var
a: array[1..n] of integer;
i, t, im, max: integer;
begin
Writeln('Введите через пробел ', n, ' чисел');
max := -32768;
for i := 1 to n do
begin
Read(t);
a[i] := t; t := (i + 1) * t;
if max < t then begin max := t; im := i end;
end;
Writeln('Максимальное значение ', max, ' достигается как ', im + 1, '*a[', im, ']')
end.
<u>Тестовое решение:</u>
Введите через пробел 8 чисел
4 -3 5 4 3 2 1 0
Максимальное значение 20 достигается как 4*a[3]
1) 795 в двоичной = 1100011011
71 в двоичной = 1000111
1100011011 - 1000111 = 1011010100
1011010100 в десятичной = 724
2) 640 в двоичной = 1010000000
71 в двоичной = 1000111
1010000000 - 1000111 = 1000111001
1000111001 в десятичной = 569