Опубликовано 5 лет назад по предмету Информатика от katya5674

Тема "Массивы" 10 класс
Друзья я ноль в информатике, помогите пожалуйста.
Буду очень благодарна. :)

Ответ

Ответ дан Mepkypuu

4)var i,min,max,count,j:integer;
a:array[1..40] of integer;
begin
min:=500;
max:=10;
for i:=1 to 40 do
a[i]:=random(10,500);
for i:=1 to 40 do
begin
if a[i]>max then
max:=a[i];
if a[i]<min then
begin
min:=a[i];
count:=i;
end;
for j:= 1 to 40 do
if (i<>j) and (a[i]=a[j]) then
writeln('Элементы',i,'и',j,'содержат число',a[i])
end;
writeln('Самое большое числа',max);
writeln('Номер самого маленького числа',count);
end.
5)
var i,j:integer;
k:real;
a:array[1..10] of real;
begin
writeln('Пункт a');
for i:= 1 to 10 do
begin
a[i]:=sin(i/10)*30;
writeln(a[i]);
end;
writeln('Пункт b');
for i:= 1 to 9 do
for j:=1 to 10-i do
if a[j]>a[j+1] then
begin
k:=a[j];
a[j] := a[j+1];
a[j+1]:= k;
end;
for i := 1 to 10 do
writeln(a[i]);
writeln('Пункт c');
for i := 1 to 10 do
if i mod 3 <>0 then
writeln(a[i])
else if i mod 3 = 0 then
begin
a[i]:=a[i]*7;
writeln(a[i]);
end;
writeln('Пункт d');
for i:=1 to 10 do
for j:=1 to 10 do
if a[i]>a[j] then
swap(a[i],a[j]);
for j := 1 to 10 do
writeln(a[j]);
writeln('Пункт e');
for j:= 1 to 10 do
writeln(round(a[j]*100)/100);
end.
1. Ответ
  
  Ответ дан katya5674
  
  Спасибо большое )
  Очень выручаете ^^
2. Ответ
  
  Ответ дан Mepkypuu
  
  Вот 6 задание
3. Ответ
  
  Ответ дан Mepkypuu
  
  var i,k,count,prost,j:integer;
  a:array[1..60] of integer;
  b:array[1..60] of integer;
  begin
  for i:= 1 to 60 do
  a[i]:=random(-10,60);
  writeln('Пункт a');
  for i:= 1 to 60 do
  begin
  count:=0;
  if a[i]>0 then
  for k:= 1 to a[i] do
  if a[i] mod k = 0 then
  if (a[i] div k = 1) or (a[i] div k = a[i])then
  count:= count+1
  else
  count:=3;
  if count=2 then
  prost:=prost+1
  else if a[i]<0 then
4. Ответ
  
  Ответ дан Mepkypuu
  
  begin
  for k:= -1 downto a[i] do
  if k<>0 then
  if a[i] mod k = 0 then
  if (a[i] div k = 1) or (a[i] div k = -a[i])then
  count:= count+1
  else
  count:=3;
  if count=2 then
  prost:=prost+1;
  end;
  end;
  writeln('количество',prost);
  end.

Самые новые вопросы

Математика - 5 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 5 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 5 лет назад

Почему япония - лидер по выплавке стали?

Математика - 5 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 5 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.

Тема "Массивы" 10 классДрузья я ноль в информатике, помогите пожалуйста.Буду очень благодарна. :)

Информация

Тема "Массивы" 10 класс
Друзья я ноль в информатике, помогите пожалуйста.
Буду очень благодарна. :)