Var a:array[1..5,1..7] of integer;
i,j,kolpol,kolotr:integer;
respol,resotr:real;
begin
for j:=1 to 7 do begin
for i:=1 to 5 do begin
a[i,j]:=random(-50,50);
write(a[i,j]:4);
end;
writeln();
end;
for i:=1 to 5 do begin
respol:=0;
resotr:=0;
kolpol:=0;
kolotr:=0;
for j:=1 to 7 do begin
if a[i,j]>0 then begin
respol+=a[i,j];
kolpol+=1;
end
else if a[i,j]<0 then begin
resotr+=a[i,j];
kolotr+=1;
end;
end;
writeln('Среднее значение положительных чисел в ',i,' столбце=', respol/kolpol);
writeln('Среднее значение отрицательных чисел в ',i,' столбце=', resotr/kolotr);
end;
end.
Ответ:
У каждого есть свои замыслы и идеи по поводу техники. Что на счёт меня, моя техника мечты - это домашний робот-компьютер со встроенным искусственным интеллектом. Он может служить отличным помощником в домашних делах, хорошим собеседником и просто средством для развлечений. Проблема, к примеру, с математикой? Не нужно печатать и искать какой-то сайт с объяснениями. Можно спросить у робота. Он не только может помочь решить, но и объяснит возможные ошибки. В таких же случаях его можно использовать, когда нужен совет или что-то подобное. А когда совсем скучно, можно попросить его сыграть с тобой в какую-нибудь игру. И робот сразу подключается через интернет к твоему игровому серверу и весёлое время препровождения гарантировано.
Объяснение:
Держи. Если я правильно поняла вопрос, конечно...
Решать надо примерно так:
Создать массив целых чисел(к примеру на 20 элементов)
Объявить две переменные(счётчик и B)
Написать пользователю чтобы он ввёл значение для B
Заполнить массив числами через цикл for и генератор псевдо-слуайных чисел(к примеру от 0 до 50)
Всё в том же цикле сделать условие типа "если a[i] > B и если a[i] % 5 == 0(делится на 5 без остатка)", то увеличить счётчик на единицу, и после этого условия вывести значение элемента в строчку через пробел
Ну и в конце вывести значение счётчика.
В паскале не разбираюсь, поэтому вот пример решения на C++
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
#include <cstdlib>
using std::rand;
using std::srand;
#include <ctime>
using std::time;
int main()
{
int a[20], counter = 0, b;
srand(time(0));
cout << "Enter B: ";
cin >> b;
for(int i = 0; i < 20; i++)
{
a[i] = rand() % 51;
if(a[i] > b && a[i] % 5 == 0)
{
counter++;
}
cout << a[i] << ' ';
}
cout << "\n" << counter << " numbers" << endl;
cin.get();
return 0;
}
<em>Паскаль</em>
var a,b,c,S,p:real;
label e;
begin
e: a:=0;b:=0;c:=0;read (a,b,c);
if ((a+b) <= c) or ((a+c) <= b) or ((b+c) <= a) then
begin
writeln ('Такого треугольника не существует, введите стороны заново');
goto e;
end;
if ((a+b) > c) or ((a+c) > b) or ((b+c) > a) then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln ('Площадь треугольника = ',S);
end;
end.
Поиск: Путем нажатия комбинации клавиш ctrl + f <em>(встань в любую строку и нажми)
</em>Замена: Правка - заменить (на панели в txt редакторе, вверху где сохранить, файл, открыть и т.п.)