1)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=Random(20);
Write(A[i]:4);
end;
Writeln;
For i:=1 to n do
begin
If A[i] mod 3=0 then
s:=s+1;
end;
Writeln('Сумма: ' ,s);
<span>END.
2)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=Random(20)-10;
Write(A[i]:4);
end;
Writeln;
For i:=1 to n do
begin
If A[i]<0 then s:=s+1;
end;
If s=0 then Writeln('Нет отр. элементов!');
Writeln('Сумма отр. элементов: ' ,s);
<span>END.</span></span>
#include <stdlib.h> //Библиотека для рандома#include <ctime>
#define MAX_SIZE_M 10#define MAX_SIZE_N 10#define MAX_RAND 100#define MIN_RAND 1
void main(){ int a[MAX_SIZE_N][MAX_SIZE_N];// объявили массив srand(time(NULL)); //Заполнение массива for(int i = 0; i < MAX_SIZE_N; i++) for (int j = 0; j < MAX_SIZE_M; j++) a[i][j] = MIN_RAND + rand() % MAX_RAND;
int sum = 0; //Считаем сумму for (int i = 0; i < MAX_SIZE_N; i++) for (int j = 0; j < MAX_SIZE_M; j++) if (a[i][j] % 2 == 1) { sum += a[i][j] * a[i][j]; } }
Один из вариантов дерева приведен во вложении.
Ну...Вообще компьютер изначально был создан для хранения, обработки информации, но не для этого...Ну ладно, ближе к теме...
Я думаю, что интернет был создан для получения более объёмной информации. Короче напиши, что то вроде этого:
Для получения информации ( описываешь какую), затем пишешь: для отправки sms/mms ну и т.д..
Удачи)
Ответ:
//////////////////////////////////////////////////
Объяснение: