Массив!Задача!

[Ириска_92]

Вычислите сумму всех элементов заданного массива Х(N)кратных пяти

[andrewpalkin]

Сообщение от Ириска_92

Вычислите сумму всех элементов заданного массива Х(N)кратных пяти

1. Покажи свои наработки , код
2. Мы тебе поможем

[Блуд]

#pragma hdrstop

#include <tchar.h>
#include <iostream.h>
//---------------------------------------------------------------------------
using namespace std;
#pragma argsused
int _tmain(int argc, _TCHAR* argv[])
{
int *mass,N,summ=0;
cout<<"Vvedite N >";
cin>>N;
mass=new int[N];

for (int i = 0; i < N; i++) {
 cout<<"Vvedite mass["<<i<<"]>";
 cin>> mass[i];
 if (!(mass[i]%5)) {
   summ+=mass[i];
 }
}
delete []mass;
cout<<"Summ="<<summ<<endl;
system("pause");
	return 0;
}

[Ириска_92]

Сообщение от andrewpalkin

1. Покажи свои наработки , код
2. Мы тебе поможем

Вот

const n=5;
var
i,s:integer;
x:array[1..n]of integer;
begin
for i:=1 to n do begin
x[i]:=random(60);
write (x([i]:5); writeln;
for i:=1 to n do
s:=0;
if x[i]<>x[i]/5 then s:=s+x[i];
s:=s+x[i];
writeln(s); writeln;
end.

[Hacker19_90]

const n=5;
var
    i,s:integer;
    x:array[1..n]of integer;
begin
    for i:=1 to n do 
    begin
         x[i]:=random(60);
         write (x([i]:5); writeln;
    end;
    s := 0;
    for i:=1 to n do
        if ((x[i] mod 5) = 0) then s:=s+x[i]; 
    writeln(s); 
    writeln;
    Readln;
end.

[Ириска_92]

Сообщение от Hacker19_90

const n=5;
var
    i,s:integer;
    x:array[1..n]of integer;
begin
    for i:=1 to n do 
    begin
         x[i]:=random(60);
         write (x([i]:5); writeln;
    end;
    s := 0;
    for i:=1 to n do
        if ((x[i] mod 5) = 0) then s:=s+x[i]; 
    writeln(s); 
    writeln;
    Readln;
end.

Не работает, ошибку пишет: Формат вывода:n непременим к данным типа set of byte

[Hacker19_90]

Прошу прощения

program forum;
uses crt;
const n=5;
var
    i,s:integer;
    x:array[1..n]of integer;
begin
    for i:=1 to n do 
    begin
         x[i]:=random(60);
         write (x[i]:5); writeln; {В этом месте скобка лишняя была}
    end;
    s := 0;
    for i:=1 to n do
        if ((x[i] mod 5) = 0) then s:=s+x[i]; 
    writeln(s); 
    writeln;
    Readln;
end.

[Ириска_92]

Спасибо! Все понятно