Перевести из паскаля в с (подсчет отрицательных элементов)

@Nikkel · Регистрация: 19.02.2014

Author24 — интернет-сервис помощи студентам

Pascal

Const n=6;m=5;
Var A:array[1..n,1..m] of real;
    B:array[1..n] of byte;//для подсчёта кол-ва отрицательных
    i,j,imax:byte;
Begin
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random*10-5;
        write(A[i,j]:6:2,' ');
        if A[i,j]<0 then inc(B[i]);
      End;
      writeln;
    End;
    imax:=1;
    For i:=2 to n do
     if B[i]>B[imax] then imax:=i;
    writeln('Max кол-во отрицательных в ',imax,' строке их там = ',B[imax]);
    readln;
End.

@kasan · 21.05.2014, 10:31

C++

#include <iostream>
#include <stdlib.h>
using namespace std;
 
int main ()
{
int const n=6,m=5;
double A[n][m];
int B[n]; //для подсчёта кол-ва отрицательных
int i,j,imax;
 
for(i=0;i<n;i++)
    B[i]=0;
 
for(i=0;i<n;i++)
{
    for(j=0;j<m;j++)
    {
        A[i][j]=rand()%16-5;
        cout<<A[i][j]<<"  ";
                if(A[i][j]<0)
                    B[i]++;
    }
    cout<<endl;
}
imax=0;
for(i=1;i<n;i++)
{
    if(B[i]>B[imax])
        imax=i;
}
 
cout<<"Max кол-во отрицательных в "<<imax<<" строке их там = "<<B[imax]<<endl;
 
return 0;
}

Новые блоги и статьи
Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .	Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .	Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .	Алгоритмика hw_wired 28.01.2025 Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .	Информационное моделирование hw_wired 28.01.2025 Введение в информационное моделирование В современном мире информационное моделирование стало неотъемлемой частью научной, образовательной и профессиональной деятельности. Это мощный инструмент. . .
Объекты и их имена hw_wired 28.01.2025 Введение: Основы объектного подхода и их роль в информатике В современном мире информационных технологий объектный подход стал фундаментальным принципом организации и обработки информации. Этот. . .	Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .	Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .

	21.05.2014, 10:31

Перевести из паскаля в с (подсчет отрицательных элементов)

Решение