Данные в каждый массив вводим по строго по возрастанию через пробел, признак окончания ввода - число 0 или отрицательное, в конце ввода Enter.
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadSeqIntegerWhile('Последовательность 1:',t->t>0).ToArray; var b:=ReadSeqIntegerWhile('Последовательность 2:',t->t>0).ToArray; (var n,var m):=(a.Length-1,b.Length-1); (var i,var j,var k):=(0,0,0); repeat if a[i]=b[j] then begin k+=1; i+=1; j+=1 end else if a[i]<b[j] then i+=1 else j+=1; until (i>n) or (j>m); Writeln('k=',k) end.
Var m: array [1 .. 16] of integer; i,countMin: integer; begin for i := 1 to 16 do begin randomize; m[i] := random(100); if(m[i] <10) then countMin:=countMin+1; end; writeln('Исходный массив'); for i := 1 to 16 do writeln('m[', i, ']=', m[i], ' '); writeln("Количество элементов <10",countMin); readln; end.
Var i,count:integer; mas: array [1..10] of integer; begin randomize; for i:=1 to 10 do begin mas[i]:=random(-30,30); write(mas[i], ' '); end; writeln(''); writeln('Номера четных элементов'); count:=0; for i:=1 to 10 do begin if mas[i] mod 2 = 0 then begin write(i,' '); count:=count+1; end; end; writeln(''); writeln('Количество четных элементов = ', count); end.
begin var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив ***'); var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var k:=ReadInteger('k='); if a.ElementsByRow.Any(t->t>k) then Writeln('Есть') else Writeln('Нет') end.
Const N = 4; Var A:array[1..N,1..N] of integer; i,j,k:integer; Begin Randomize; WriteLn('1)'); k:=0; For i:= 1 to N do Begin For j:= 1 to N do Begin A[i,j]:=random(21)-10; Write(A[i,j]:3,' '); if A[i,j] < 0 then k:=k+1; End; WriteLn End; WriteLn('k = ',k); WriteLn('2)'); For i:= 1 to N do Begin For j:= 1 to N do Begin if j > i then A[i,j]:=100; Write(A[i,j]:3,' ') End; WriteLn End; WriteLn('3)'); For i:= 1 to N div 2 do Begin For j:= 1 to N do Begin k:=A[i+N div 2,j]; A[i+N div 2,j]:=A[i,j]; A[i,j]:=k; End End; For i:= 1 to N do Begin For j:= 1 to N do Write(A[i,j]:3,' '); WriteLn End; End.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var n:=ReadInteger('Задайте число строк/столбцов массива:'); var a:=MatrixRandom(n,n,-99,99); Writeln('Исходный массив'); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Write(a[i,j]:4); Writeln end; Write('Кол-во нечетных элементов выше главной диагонали: '); var k:=0; for var i:=0 to n-2 do for var j:=i+1 to n-1 do if Odd(a[i,j]) then Inc(k); Writeln(k) end.
def zadanie(lineal_array, x, y)
k = 0
lineal_array.each {|element|
k = k + 1 if element < x or element > y
}
return k
end
# Примеры применения
p zadanie([1, 2, 3, 4, 5], 2, 3)
Если нужно просто выбрать план, то ответ конечно 2
Сначала нам нужно найти элемент, количество которого мы будем искать в массиве
Если нужна программа(python), то:
import random
lst = [random.randint(1, 100) for _ in range(100)]
print(abs(lst.count(max(lst)) - lst.count(min(lst
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadSeqIntegerWhile('Последовательность 1:',t->t>0).ToArray;
var b:=ReadSeqIntegerWhile('Последовательность 2:',t->t>0).ToArray;
(var n,var m):=(a.Length-1,b.Length-1);
(var i,var j,var k):=(0,0,0);
repeat
if a[i]=b[j] then begin k+=1; i+=1; j+=1 end
else
if a[i]<b[j] then i+=1 else j+=1;
until (i>n) or (j>m);
Writeln('k=',k)
end.
Пример
Последовательность 1: 2 3 5 8 11 14 19 23 38 0
Последовательность 2: 1 3 4 5 6 9 11 14 17 18 21 23 29 0
k=5
m: array [1 .. 16] of integer;
i,countMin: integer;
begin
for i := 1 to 16 do
begin
randomize;
m[i] := random(100);
if(m[i] <10) then
countMin:=countMin+1;
end;
writeln('Исходный массив');
for i := 1 to 16 do
writeln('m[', i, ']=', m[i], ' ');
writeln("Количество элементов <10",countMin);
readln;
end.
i,count:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(-30,30);
write(mas[i], ' ');
end;
writeln('');
writeln('Номера четных элементов');
count:=0;
for i:=1 to 10 do begin
if mas[i] mod 2 = 0 then begin
write(i,' ');
count:=count+1;
end;
end;
writeln('');
writeln('Количество четных элементов = ', count);
end.
Внимание! Если программа не работает, обновите версию!
№1
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Количество отрицательных значений ',a.Where(t->t<0).Count);
end.
Пример
n= 15
3 39 3 2 43 43 -37 -2 -50 3 -25 15 -7 4 21
Количество отрицательных значений 5
№2
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var k:=ReadInteger('k=');
if a.ElementsByRow.Any(t->t>k) then Writeln('Есть')
else Writeln('Нет')
end.
Пример
Количество строк и столбцов в массиве: 5 8
*** Исходный массив ***
-9 48 -98 -35 -33 -29 44 -32
-33 -48 -62 11 45 53 52 90
-96 -1 68 -21 15 -72 -78 -28
44 15 -53 -33 -27 89 -60 -49
28 -73 -99 81 23 -9 -93 -66
k= 92
Нет
N = 4;
Var
A:array[1..N,1..N] of integer;
i,j,k:integer;
Begin
Randomize;
WriteLn('1)');
k:=0;
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ');
if A[i,j] < 0 then k:=k+1;
End;
WriteLn
End;
WriteLn('k = ',k);
WriteLn('2)');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
if j > i then A[i,j]:=100;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
WriteLn('3)');
For i:= 1 to N div 2 do
Begin
For j:= 1 to N do
Begin
k:=A[i+N div 2,j];
A[i+N div 2,j]:=A[i,j];
A[i,j]:=k;
End
End;
For i:= 1 to N do
Begin
For j:= 1 to N do
Write(A[i,j]:3,' ');
WriteLn
End;
End.
1)
10 2 -9 4
-10 5 -5 -10
4 9 4 10
3 -9 10 -6
k = 6
2)
10 100 100 100
-10 5 100 100
4 9 4 100
3 -9 10 -6
3)
4 9 4 100
3 -9 10 -6
10 100 100 100
-10 5 100 100
Var
m: array [1..10000] of integer;
k,i:integer;
Begin
k:=0;
randomize;
For i:=1 to 10 do
read(m[i]);
For i:=1 to 10 do
If m[i]=0 then k:=k+1;
Writeln(k);
end.
begin
var n:=ReadInteger('Задайте число строк/столбцов массива:');
var a:=MatrixRandom(n,n,-99,99);
Writeln('Исходный массив');
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do Write(a[i,j]:4);
Writeln
end;
Write('Кол-во нечетных элементов выше главной диагонали: ');
var k:=0;
for var i:=0 to n-2 do
for var j:=i+1 to n-1 do
if Odd(a[i,j]) then Inc(k);
Writeln(k)
end.
Тестовое решение
Задайте число строк/столбцов массива: 6
Исходный массив
31 27 -90 -64 -75 22
12 11 79 6 -14 73
-66 -52 -97 -82 -50 47
-65 20 25 -7 -13 46
-31 -9 -69 47 81 2
-43 -68 95 -3 -36 -55
Кол-во нечетных элементов выше главной диагонали: 6
//PascalABC.NET 3.4.2
begin
readarrinteger('Введите элементы массива:', readinteger('Введите размер массива:')).Where(x -> x > 0).Count.Print();
end.
--- PascalABC.NET 3.6.2 ---
begin
var A := ArrRandomReal(16, -99, 99);
A.Println;
Println($'Max Element: {A.Max}'); //Макс элемент
A.Transform(p -> p>0? p + 4 : p); // Увеличиваем на 4 все положительные
A.Println;
A.Count(p -> p < 3).Println; // Считаем числа меньше 3
end.
Объяснение:
На основе личных наблюдений, если автор вопроса не указывает ЯП, то ему в 90% случаев нужно на паскале. По этому решение приведено именно на нём
#include <iostream>
#include <algorithm>
#include <string>
#include <vector>
using namespace std;
int main()
{
// Номер 1
vector <string> days;
for (int i = 0 ; i < 7 ; ++i)
{
string temp;
cin >> temp;
days.push_back(temp);
}
//Номер 2
int max1 = -2000000000;
int max2 = -2000000000;
vector <int> arr { 15, 48, 0, 144 , 52};
for(int i = 0 ; i < arr.size() ; ++i)
max1 = (arr[i] > max1 ? arr[i] : max1);
for(int i = 0 ; i < arr.size() ; ++i)
max2 = (arr[i] > max2 && arr[i] != max1 ? arr[i] : max2);
cout << "Максимум 1: " << max1 << " Максимум 2: " << max2;
//Номер 3
vector <int> numbers { 15, 24, 48, -5 , 0 , -10};
cout << count_if(numbers.begin(), numbers.end(), [] (int a) { return a > 0;});
return 0;
}
Найти n-ый член арифметической прогрессии если известны разность прогрессии, первый член и
номер этого члена могу это ответ будет 543,51
Объяснение:
if min>a[i] then
min:=a[i];
2)
if a[i] mod 2 <> 0 then
kol:=kol+1;
3)
if a[i]>0 then
begin
sum:=sum+a[i];
kol:=kol+1;
end;
sum:=sum/kol
4)
if a[i]>5 then
a[i]:=sqr(a[i]);
5)
if a[i]<>4islo then
a[i]:=a[i]-(a[i]*2);
// Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(10,-99,99); mas.Println;
var t:=mas.Where(t->t mod 2 <> 0); Write('нечетные элементы ='); t.Println;
Writeln('сумма нечетных элементов =',t.Sum);
Writeln('количество нечетных элементов =',t.Count);
Writeln('номер найменьшего элемента =',mas.IndexMin+1);
end.
Count:=0;
For I:=1 to n do begin
For j:=1 to n do begin
If j>I then do
If a[i,j] mod 2<>0 then inc(count);
Endif;
Endif;
End;
End;