a:array[1..10,1..15] of integer;
i,j,k,x:integer;
begin
read(x);
k:=0;
for j:=1 to 15 do
for i:=1 to 10 do
a[i,j]:=random(101);
for j:=1 to 15 do
for i:=1 to 10 do
if a[i,j]=x then k:=k+1;
write(k);
end.
Для не случайных чисел:
Код на C++
#include <iostream>
using namespace std;
int main(){
setlocale(LC_ALL, "Russian");
int array[100]; //инициализировали массив
int morethen51 = 0;
for(int i = 0; i < 100; i++){
array[i] = i; //Заполняем массив
}
for(int i = 0; i < 100; i++){
if(array[i] > 51){
morethen51++;
}
}
cout << "Чисел, которые больше 51: " << morethen51;
return 0;
}
Информатика?
Попробуй нажать;
Ctrl+Alt+Home
Var ma,kol,bol,n,x,i:integer;beginread(n);for i:=1 to n do begin read(x); if x<30 then inc(bol); if x>ma then ma:=x; end;writeln(ma);if bol>0 then writeln('YES') else writeln('NO'); end.