М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Сергей1901
Сергей1901
02.06.2020 16:54 •  Информатика

Массив а из 10 элементов заполнен случайными числами от 2 до 7. вычислить массив в, элементы которого вычисляются по формуле: в[i]=a[i]+10.

👇
Ответ:
Adele04
Adele04
02.06.2020
Var a,b:array[1..10] of integer;i:integer;
begin
for i:=1 to 10 do
b[i]:=a[i]+10;
end.
4,4(22 оценок)
Открыть все ответы
Ответ:
Gakaka
Gakaka
02.06.2020
В турбо паскале, к сожалению, нет динамических массивов, по крайней мере, я в описаниях ничего не нашел, поэтому придется заранее задать N и M.
Пусть будет N = 10, M = 20. Для чисел меньше миллиона функция Prost работает за вполне приемлемое время.

PROGRAM SredProst;
var A: array [1..10, 1..20] of integer;
var i, k, p: integer, S: real;
FUNCTION Prost(n: integer): integer
var i: integer
BEGIN
Prost:=1;
{esli n delitsia na kakoe-to chislo ot 2 do kornya iz n, to n sostavnoe}
for i:=2 to sqrt(n) do if (n mod i = 0) then Prost:=0;
END;

BEGIN
uses crt; clrscr;
{Vvodim nachalniy massiv}
for i:=1 to 10 do
begin
for k:=1 to 20 do read (A[i,k]);
end;
S:=0; p:=0;
{Ischem prostye chisla, summiruem ih v S i schitaem kol-vo v p}
for i:=1 to 10 do
begin
for k:=1 to 20 do
begin
{Prost - eto funkcia poiska, prostoe chislo ili net}
if (Prost(A[i,k]) = 1) then
begin
S:=S+A[i,k];
p:=p+1;
end;
end;
end;
{Srednee - eto summa chisel, delennaya na ih kol-vo}
S:=S/p;
writeln ('Srednee vseh prostyh chisel ', S);
END.
4,6(100 оценок)
Ответ:
еддпмаад
еддпмаад
02.06.2020
№1
#include <iostream>
using namespace std;
int main ()
{
setlocale (0,"russian");
float a,b,c,x;
cout << "Размеры кирпича: " << endl;
cout << "a=";
cin >> a;
cout << "b=";
cin >> b;
cout << "c=";
cin >> c;
cout << "Радиус круга: ";
cin >> x;
if ((a<x || b<x) && c<x)
cout << "Кирпич пройдёт.";
else
cout << "Кирпич не пройдёт.";
system ("PAUSE>>VOID");
return 0;
}
№4
#include <iostream>
using namespace std;
int main ()
{
setlocale (0,"russian");
float a,b,c;
cout << "Стороны треугольника: ";
cin >> a >> b >> c;
if (a<=0 || b<=0 || c<=0)
{
cout << "Неверно введены стороны (они не могут быть отрицательными)!";
}
else
{
if (c>a && c>b)
{
if (c==sqrt(a*a+b*b))
cout << "Треугольник прямоугольный.";
else 
cout << "Треугольник непрямоугольный";
}
else if (a>b && a>c)
{
if (a==sqrt(c*c+b*b))
cout << "Треугольник прямоугольный.";
else 
cout << "Треугольник непрямоугольный";
}
else
{
if (b==sqrt(c*c+a*a))
cout << "Треугольник прямоугольный.";
else 
cout << "Треугольник непрямоугольный.";
}
}
system ("PAUSE>>VOID");
return 0;
}
4,4(29 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ